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Guida all’input dei programmi sullo ZX Spectrum 


Le "parole" comprese tra parentesi graffe indicano / caratteri grafici pre- 
defimti (G). il tasto (numeroseguente !Ó G). la necessità di premere il tasto 
insieme a CAPS SHIFT (eventuale 5 precedente la G) e il numero di ripeti¬ 
zioni del tosto r/ch/este (eyebtuole numero all'inizio della "parola ). I ca¬ 
ratteri grafici definiti dal programmo sonò invece indicali do lettere maiu¬ 
scole (corrispondenti al tasto da usare) sottohnecte. 


Quando leggete~| ( Prem ete 


Vedrete 


{Gl} 


Fn 

{G 2 } 


1 * FI ■ 

(G 3 } 


FP! - 

{G 4 } 


LU 

{ G 5 } 


FT 1 1 

{G 6 } 


LJU S 

{G 7 } 


FFB 4 

{G 8 } 


m □ 

{SG 1 } 

. ' • . • 

i 1 l> 1 F li 

{S G 2 } 

Se nott siete 
Qtk'ln modo 

1 SK 1 u Fi. J 

(SG 3 } 

. schiacciando- 

i *HIFI I P ' || Hi 

{ SG 4 } 

neameote 
CA^S SHIFT' 

« Q 

l ss j Fra r 

{SG 5 } 


'I -SS 1 I- 1 B 1 

{SG 6 } 


l-as 1 OH ^ 

{SG 7 } 

. 

SHHT 1 [7 Bj ■ 

{SG 8 } 


1 SS 1 1 » 1 1 ■ 


Se dovete 
uscite dal 
modo G. 
schiacciate 9 


Quando leggete 


Premete 


Vedrete 


A 


B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 


M 

N 

O 

P 

e 

R 

S 


T 

U 



Simbolo grafico 
definito nel 
programma in uso. 


Se dovete 
uscite dal 
modo G. 
schiacciate 9 


Guida per l’input dei programmi versioni VIC1© e €64 


Notate che i listati contengono ‘ ‘parole’’ rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


(CLR) 
{HOME} 
{SU} " 
{GIU'} 
{SIN} 
{DES} 

{RVS } 
{OFF} 

{ BLK } 

{WHT} 
-{RED} 


SHIFT 

! 

clr/home] 


■■■■ 


CU/ HOME] 



SHIFT 


n CRSR li] 

■■ 


__ 


li CRSR li] 

_ 


[ SHIFT 

Ji 

C=CRSR =>] 


C=CRSR=3 


I CTRL 



□ 

CIRI 


CTRL 

IO 


CTRL 

i 2 



CTRL 

m 


c 

{CYN} 

s 

{PUR} 

□ 

{GRN } 

Q 

{BLU} 

II 

{YEL} 

pL 

(<1>) 


[<2>] 


[<3>] 

3 

[<4>] 

E 

!t<5>} 

e 

;i<6>] 

r 


CTRL 

iM 



CTRL 

M 



CTRL 

IU 



CTRL 

IO 



[CTRL 

J « .1 


HO 

HO 

HO 

HO 

HO 

HO 


ht. ! <7> i 

m '< 8 >i 




Q 

SÌÌ tF 3 } 


* 


PS («} 
£3 lF6} 


o 


E {F8 > 

■I 


□ a 

□ 

HO 

■ ■ 

m 

IH 

OS 

SI 


■ 

CD 

k! 

CE 

Il 

OS 

Si 

cs 

II 

CZD 

■ 
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Il minatore 




£ il 1859, subito dopo la corsa all'oro in Cali¬ 
fornia. Trovare una fortuna nelle concessioni 
minerarie non è più la soluzione per diventa¬ 
re ricchi. Tutti i grossi giacimenti sono stati 
sfruttati e l'oro rimasto si trova così in pro¬ 
fondità che solo grandi compagnie con le loro 
vaste risorse sono in grado di trarne un vero 
profitto. Ma voi possedete ancora delle pos¬ 
sibilità di fare fortuna è vendete una di que¬ 
ste ad una delle grandi compagnie minera¬ 
rie. Ma perché la vostra proposta venga pre¬ 
sa in considerazione dovete dimostrare che 
nella vostra miniera c'è tanto oro da render¬ 
la una vantaggioso affare per l'acquirente. A 
questo scopo dovrete rischiare la vita nel pro¬ 
fondo della miniera... da solo!!! 

Rischierete la vostra vita per la ricchezza? 
Mettetevi alla prova. 

Giocare al Minatore è facile. I segni verticali 
sottoterra indicano i luoghi che hanno una 
maggiore potenzialità. Per andare sottoterra 


10 HOME : VTAB 7: HTAB 5: PRINT 
"*** IL MINATORE ***" 

13 VTAB 17 : HTAB 5 : FLASH : PRI 
NT "UN MOMENTO PREGO": NORMAL 
15 GOSUB 1230: POKE 232,0: POKE 
233,64 

20 DIM C (26,10) : DIM D(30) 

30 SCALE= 1: ROT= 0:EP = 0:S = 

0 :P = 31:M = 500:MX = 1000 
4 5 HOME 

50 HGR : HCOLOR= 1: HPLOT 0,0: 
CALL 62454 

60 HCOLOR= 3: FOR I = 0 TO 31 : 
HPLOT 0,1 TO 276,1: NEXT I 
70 FOR I = 257 TO 276: HPLOT I, 
0 TO 1,159: NEXT I 
80 HCOLOR= 0: DRAW 3 AT 191,29: 

HPLOT 259,0 TO 259,P - 16:: DRA 
W 5 AT 257,P 

90 HCOLOR= 0: HPLOT 0,31 TO 191 
,31 

100 FOR I = 1 TO 30 


dovete usare l'ascensore perché il sub è 
troppo allentato e franerebbe se venisse sca¬ 
vato. Per entrare nell'ascensore e scavare 
nel sottosuolo usate i soliti tasti IJ KM. Ogni 
volta che scavate dovete pagare 5$. Se tro¬ 
vate della roccia dura pagherete 25$, men¬ 
tre se trovate della roccia tenera pagherete 
solo 4$. Innumerevoli sono i pericoli nella mi¬ 
niera: falla sotteranee, frane del terreno, 
roccia solida vi potranno impedire di proce¬ 
dere. Se trovate una sorgente sotterranea 
tutte le gallerie che si trovano sotto al vostra 
livello vengono riempite d'acqua. Viene an¬ 
che aggiornato, ad ogni mossa, il prezzo 
dell'oro. Quando vedete che il prezzo è con¬ 
veniente tornate in superficie e vendete Toro 
trovato alla banca cercando di ricavare il 
massino profitto. Se avrete più di 7000$ 
avrete vinto e potrete vendere i diritti di con¬ 
cessione alla compagnia mineraria. 


1 1 0 

X = 

INT ( 

RND 

(i) * 

25 

+ i) 

* 

1 0 






1 20 

H = 

X / 10 





1 30 

Y = 

INT ( 

RND 

di * 

1 0 

+ i) 

■k 

1 6 





1 i 40 

V = 

Y / 16 

- 1 




1 50 

FOR 

F = 1 

TO I 

- i 




160 IF X + Y = D(F) THEN FL = 1 
170 NEXT F 

180 IF FL = 1 THEN FL = 0 : GOTO 
1 1 0 

190 IF X > 245 OR X < 15 OR Y < 
31 THEN GOTO 110 
200 C(H,V) = 1 
210 DRAW 1 AT X,Y 
220 NEXT I 
230 GOSUB 710 
260 H = 2 3 :V = 0 
270 X = 226:Y = 30 
280 HCOLOR= 0: DRAW 6 AT X,Y 
290 GET A$ 














300 IF ASC (A$) =3 THEN GOSU 
B 1 41 0 

310 N = 0:N1 =0 

330 IF A$ < "I" OR A$ > "M" THE 
N 290 

340 ON ASC (AS) - 72 GOTO 350, 
410,470,290,550 

350 IF Y < 55 AND X < 253 THEN 
61 0 

360 NI = - 16 

370 IF C(H,V - 1) = 3 THEN 290 

380 V=V-1:S=S-1 

390 IF Y > 32 AND C(H,V) = 0 TH 

EN M = M - 5: GOSUB 730 

400 GOTO 610 

410 IF X < 7 OR X < 203 AND Y < 
32 THEN 610 

420 N = - 10: IF Y < 33 THEN H 

COLOR= 3: DRAW 6 AT X,Y 
430 IF C(H - 1,V) =3 THEN 290 
440 H = H - 1 

450 IF Y > 32 AND C(H,V) = 0 TH 
EN M = M - 5: GOSUB 730 
460 GOTO 610 
470 PR = 0 

480 IF X > 240 AND S = EP THEN 
GOSUB 830: IF Y > 32 THEN 650 
490 IF X > 240 AND Y > 30 THEN 
290 

500 N = 10: IF Y < 33 THEN HCOL 
OR= 3: DRAW 6 AT X,Y 
510 IF C (H + 1 , V) =3 THEN 290 
520 H = H + 1 

530 IF Y > 32 AND C(H,V) = 0 TH 
EN M = M - 5: GOSUB 730 
540 GOTO 610 
550 IF Y > 1 50 THEN 610 
560 IF Y < 32 AND X < 250 THEN 
61 0 

570 NI = 16 

580 IF C(H,V + 1) = 3 THEN 290 

590 V=V+1:S = S + 1 

600 IF Y > 32 AND C(H,V) = 0 TH 

EN M = M - 5: GOSUB 730 

610 IF Y < 30 AND X > 249 THEN 

670 

620 HCOLOR= 3: IF Y > 30 AND X 

< 250 THEN HCOLOR= 0 

630 IF Y < 32 THEN HCOLOR= 0: 
GOTO 670 

640 IF C(H,V) = 1 THEN GOSUB 1 
000 

650 DRAW 2 AT X,Y: DRAW 2 AT X 

+ N,Y + Ni:C(H,V) =2 

660 HCOLOR= 0: IF Y > 30 AND X 

< 250 THEN HCOLOR= 3 

670 X = X + N:Y = Y + Ni : DRAW 6 
AT X,Y: IF X < 200 AND Y < 32 A 


ND PR = 0 THEN M = M + (GP * GC) 
:PR = 1 :GC = 0: GOSUB 710 
680 N = 0:Nl = 0 
690 GOTO 290 

710 GP = INT ( RND (1) * 600) + 
300: IF GP < 501 THEN 710 
730 POKE 34,20: HOME : PRINT "P 
REZZO ORO $ ";GP;" ";: PRI 

NT GC;" ONCE" 


740 

PRINT 

"SOLDI 

$ "? 

M; : IF 

M > 

7000 THEN 

GOSUB 

790 



750 

IF M < 

= 0 

THEN 

1 21 0 


760 

RETURN 





770 

END 





790 

TEXT : 

POKE 

34,0: 

HOME 

: FO 

R I 

= 1 TO 

20 : P = 

INT 

(1.5 

* I) 

: NORMAL : 

PRINT 

SPC( 

P) ? : 

FLAS 

H : 

PRINT " 

SOLDI $ 

" ; M: 

FOR S 

= 1 


TO 100: NEXT S: NEXT I: NORMAL 

800 PRINT "ADESSO POTETE VENDER 
E LA VOSTRA " 

801 PRINT "CONCESSIONE E VIVERE 
DI RENDITA" 

810 END 

830 IF Y < 32 THEN HCOLOR= 3: 
DRAW 6 AT X,Y: GOTO 850 
840 HCOLOR= 0: DRAW 6 AT X,Y 
850 HCOLOR= 0: DRAW 7 AT 257,P 
860 GET A$ 

870 IF A$ < "I" OR A$ > "M" THE 
N 860 

880 ON ASC (A$) - 72 GOTO 900, 
940,860,860,960 
900 IF P < 32 THEN 860 
910 S = S - 1:EP = EP - 1:V = V 
- 1 

920 P = P - 16: DRAW 7 AT 257,P: 

XDRAW 7 AT 257,P + 16: HCOLOR= 
3: HPLOT 259,P TO 259,P + 16: HC 
OLOR= 0: GOTO 860 
940 XQRAW 7 AT 257,P: DRAW 5 AT 
257,P:Y = P: RETURN 
960 IF P > 150 THEN 860 
970 EP = EP + 1:S = S + 1:V = V 
+ 1 

980 P = P + 16: DRAW 7 AT 257,P: 

XDRAW 7 AT 257,P - 16: HPLOT 25 
9,0 TO 259,P - 16: GOTO 860 
1000 Z = INT ( RND (1) * 6) + 1 

1010 ON Z GOTO 1020,1030,1040,1 
050,1130 

1020 POKE 34,20: HOME : PRINT " 
PIETRA TENERA. SCAVARE E' FACILE 
FOR I = 1 TO MX: NEXT I:M = M 
+ 4: GOSUB 710: RETURN 
1030 POKE 34,20: HOME : PRINT " 
ROCCIA DURA": FOR I = 1 TO MX: N 
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EXT I:M = M - 25: GOSUB 710: RET 
URN 

1040 POKE 34,20: HOME :G = INT 
( RND (1) * 3 + 1 ) :GC = GC + G: 
PRINT G;" ONCE DI ORO FINO": FO 
R I = 1 TO MX: NEXT I: GOSUB 710 
: RETURN 

1050 POKE 34,20: HOME : PRINT " 
SORGENTE SOTTERRANEA": FOR I = 1 
TO MX: NEXT I 
1060 FOR I = V + 1 TO 8 
1070 FOR J = 1 TO 25 
1080 IF C(J,I) = 2 THEN C(J,I) 

= 3: HCOLOR= 2: DRAW 2 AT (J * 1 


0) - 

3,(1 + 2) * 

1 6 

- 1 



1 090 

NEXT J 





1100 

NEXT I 





ino 

GOSUB 710 





1 1 20 

HCOLOR= 0: 

RETURN 



1 1 30 

POKE 34,20 

: HOME : 

PRINT " 

CROLLO":: FOR I 

= 1 

TO MX 

: NEXT 

I: IF 

INT ( RND 

(1) 

* 5) 

= 1 

TH 

EN PRINT "HAI PERSO 

TUTTO L' 

ORO 

!": FOR I = 1 TO 

MX: 

NEXT 

I : GC = 

0: GOSUB 710 





1 1 35 

IF V < 3 THEN 

1 200 



1140 

FOR I = V 

- 2 

TO V 

+ 2 


1 1 45 

HCOLOR= 1 





1 1 50 

FOR J = H 

- 2 

TO H 

+ 2 


1 1 60 

IF C(J,I) 

= 2 

THEN 

C(J, 

i) 


= 0 : HCOLOR= 1 : DRAW 2 AT J * 10 
- 3,(I + 2) * 16 - 1 
1170 NEXT J 
1180 NEXT I 
1190 GOSUB 710 
1200 RETURN 

1210 TEXT : HOME : VTAB 10: HTA 
B 10: PRINT "HAI FATTO BANCAROTT 
A. SE VUOI GIOCARE ANCORA DAI RU 
N": END 
1220 END 
1230 L = 16384 
1 240 FOR MX = 1 TO 6 
1250 READ B$ 

1260 FOR I = 1 TO LEN (B$) STE 
P 2 

1270 AD = ASC ( MID$ (B$,I,1)) 
-48 

1280 IF AD > 9 THEN AD = AD - 7 

1290 CH = ASC ( MID$ (B$,I + 1, 
D) - 48 

1 300 IF CH > 9 THEN CH = CH - 7 

1310 POKE L, AD * 16 + CH 
1 320 L = L + 1 : NEXT I 
1330 NEXT MX 
1340 RETURN 


1350 DATA "0700100021007300C50 
0CA00EB00FB00" 

1360 DATA "363636363636363E242 
424242424240400242424242424242C2 
D2D2D2D363636363636363E3F3F3F272 
42424242424" 

1370 DATA "2C2D2D2D36363636363 
63E3F3F2724242424242C2D2D3636363 
6363E3F27242424242C2D363636363E3 
F252424242C3636363600" 

1380 DATA "2424242424343636363 
63624242424242424242424242424242 
D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D2 
D353636363636363F3F3F3F3F3F3F3F3 
F3F3F2424243C3F3F3F3F36363636363 
636363636363F0700" 

1390 DATA "2C3E2C06002D2D2D2D2 
5242424242424243F3F3F3F372D2D2D2 
D3636363636363E3F3F3F07002C242D3 
626242424243E363F2D360600" 

1400 DATA "2D2D2D2D25242424242 
424243F3F3F3F372D2D2D2D363636363 
6363E3F3F24242424241C12363F17093 
13E3 6372E0 500" 

1410 TEXT : HOME : VTAB 10: HTA 
B 10: PRINT "PECCATO! LA VECCHIA 
MINIERA NON HA RETTO": END 


ERRATA CORRIGE 

Vanno apportate le seguenti modifiche al 
programma 2 "Circo" per ViC 20 appar¬ 
so su PAPERsoft n° 2: 

84 GOSUB88 

85 IFFBTHENRUN 

86 IFJlTHENPRINT"{CLR}":POKE3686 
9,240:END 

87 GOTO84 

88 POKEDD,127 :P=PEEK(P2)AND128 :J 
0=-(P=0):POKEDD,255:P=PEEK(PI 
):FB=-((PAND32)=0) 

89 Jl=-((PAND8)=0):J2=-((PAND16) 
= 0) :J3 = - ( (PAND4)=0) : RETURN 
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Sistema solare 
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L'astronomia è una scienza di osservazione. 
Da anni di osservazioni, infatti, sono deriva¬ 
te le leggi matematiche che spiegano certi fe¬ 
nomeni, come il moto dei pianeti intorno al 
sole. Ora per mezzo del vostro Apple e della 
sua grafica ad alta risoluzione, con il pro¬ 
gramma qui pubblicato, potete esplorare il 
moto dei primi sei pieneti del nostro sistema 
solare e diventare cosi un astronomo stando- 
vene comodamente a casa vostra. 

Ogni pianeta si muove in una orbita ellittica 
di distanza variabie dal sole. Più vicina è l'or¬ 
bita al sole, minor tempo occorre al pianeta 


3 0 REM 
80 GOTO 1000 

90 REM (100-110) PLOTTANO I 
VALORI X E Y 
100 HPLOT X,Y 
110 RETURN 

150 REM (200-300) CALCOLANO 
LE POSIZIONI X E Y DEI PIANETI 
200 D = Z - INT (Z / SRD) * SRD 

210 B = Q - (D / SRD * Q2) 

220 RV = A - (P/ (1 + E * COS 

(B) ) ) 

225 REM RV E' LA DISTANZA DAL 
SOLE AL PIANETA 
230 V = PE / RV - EZ 
240 IF V = >1 THEN V = VL 

245 IF V = < -1 THEN V = - 

VL 

250 VI = - ATN (V / SQR ( - V 

* V + 1 ) ) + T 

255 REM Vi E' L'ANGOLO TRA IL 
SOLE ED IL PIANETA 
260 IF D < SRD / 2 THEN VI = Q2 
- Vi 

270 Vi = Vi + J 

280 X = COS (VI) * RV:Y = - S 

IN (Vi) * RV * FA 
290 X = X * TT + Xl:Y = Y * TT + 
Yl 

300 RETURN 


per completare la sua orbita. Per esempio 
Mercurio, il pianeta più vicino, ci impiega 88 
giorni, mentre a Saturno, il più lontano dei 
primi sei pianeti, sono necessari 29 anni. 

La simulazione del sistema solare vi permet¬ 
terà di osservare la posizione relativa dei vari 
pianeti in una qualsiasi data da voi stabilita. 
La simulazione proseguirà poi dalla data sta¬ 
bilita facendovi vedere con una animazione il 
moto dei pianeti. 

Le leggi di Keplero non avranno più misteri 
per voi! 


900 REM 

1000 POKE - 16300,0: POKE - 1 
6303,0 

1010 T = 1.5708 
1020 Q = 3.14159265 
1030 Q2 = 6.2831853 
1040 VL = .99999999 
1050 FA = 29 / 32 

1055 REM FA E' IL RAPPORTO TR 
A X ED Y PER DISEGNARE UN CERCHI 
O INVECE DI UN OVALE 
1 060 XI = 140 :Yl = 96 
1700 HOME : PRINT : PRINT : PRI 
NT : PRINT 

1800 PRINT "VUOI VEDERE GLI STE 
SSI " 

1810 PRINT : PRINT "PIANETI DEL 
L'ULTIMA VOLTA?" 

1815 PRINT : INPUT "S O N ";A$ 
1820 PRINT : PRINT 
1830 IF A$ = "N" THEN 2000 
1840 IF A$ < > "S" THEN 1800 

1850 IF SI < >0 THEN 4000 

1855 PRINT : PRINT 
1860 PRINT : PRINT "NON HAI ANC 
ORA SCELTO I PIANETI!" 

1870 PRINT : PRINT : PRINT 
2000 PRINT "SCEGLI I PIANETI CH 
E VUOI VEDERE" 

2005 PRINT 

2010 PRINT "SCRIVI 1 PER 'SI' E 
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0 PER 

' NO ' " 


2054 

P4 = A4 * (1 - E4 * E4) 

/ 2 

201 1 

PRINT 





201 2 

REM 

(2020-2079) PRENDONO 


2055 

K4 =.l / E4 


I VALORI 

31 CIASCUN PIANETA 


2056 

U4 = P4 / E4 


201 3 

REM 

S1=PERIODO ORBITALE 

• 

• 

2057 

J4 = 335.7 * Q / 180 


Pi =i 

M * 

(i- 

-El*El)/2 


2058 

W4 = 289 


201 4 

REM 

El=ECCENTRICITA': Ul 

2059 

IF MA = 1 THEN TT = .6 


= Pl/E1 : 

K1 

= 1 /El 


2060 

INPUT "VUOI GIOVE 

II 

201 5 

REM 

REM Al=DISTANZA MINI 

; JU 



MA E 

MASSIMA DAL SOLE 


2061 

S5 = 4332.125 


201 6 

REM 

Jl=LONGITUDINE DEL 

P 

2062 

E5 = .0478 


ERIGEO 

IN 

RADIANTI 


2063 

A5 = 507.046 + 460.595 


201 7 

REM 

Wl= GIORNI DA 0 GRAD 

2064 

P5 = A5 * (1 - E5 * E5) 

/ 2 

I AL 

PERIGEO PER IL 1 980 





201 8 

REM 

TT=FATTORE DI SCALA 


2065 

K5 = 1 / E5 


PER 

POTER 

USARE LA MASSIMA AREA 


2066 

U5 = P5 / E5 


DI PLOTTAGGIO 


2067 

J5 = 13.6 * Q / 180 


2020 

INPUT "VUOI MERCURIO 

n 

2068 

W5 = 1604 


; ME 





2069 

IF JU = 1 THEN TT = .19 


2021 

SI 

= 

87.969 


2070 

INPUT "VUOI SATURNO 

II 

2022 

El 

= 

. 2056 


; SA 



2023 

Al 

= 

43.403 + 28.597 


2071 

S6 = 10825.863 


2024 

Pi 

= 

Al * (1 - El * El ) / 

2 

2072 

E6 = .0555 







2073 

A6 = 937.541 + 838.425 


2025 

K1 

— 

1 / El 


2074 

P6 = A6 * (1 - E6 * E6) 

/ 2 

2026 

U1 

— 

Pi / El 





2027 

Jl 

= 

77.1 * Q / 180 


2075 

K6 = 1 / E6 


2028 

Wl 

= 

37.58 


2076 

U6 = P6 / E6 


2029 

IF 

4E = 1 THEN TT = 2.3 


2077 

J6 = 95.5 * Q / 180 


2030 

INPUT "VUOI VENERE 

ii 

2078 

W6 = 2115 


; VE 





2079 

IF SA = 1 THEN TT = .1 


2031 

S2 

= 

224.701 


3900 

HOME : PRINT : PRINT 


2032 

E2 

= 

.0068 


4000 

PRINT : PRINT "VUOI PLOTTA 

2033 

A2 

= 

67.726 + 66.813 


RE": 

PRINT 


2034 

P2 

= 

A2 * (1 - E2 * E2) / 

2 

401 0 

INPUT "PER PUNTI (0) O 

CON 






TINUO (1) ";TY 


2035 

K 2 

= 

1 / E2 


401 5 

IF TY < >0 AND TY < 

> 1 

2036 

U2 

zz 

P2 / E2 


THEN 4000 


2037 

J2 

= 

1 31 . 3 * Q / 1 80 


4020 

PRINT : PRINT : PRINT 


2038 

W2 

= 

1 40.5 


4030 

PRINT : PRINT "VUOI PARTIR 

2039 

IF VE = 1 THEN TT = 1 . 5 


E A 

UNA DATA": PRINT 


2040 

INPUT "VUOI LA TERRA 

it 

4040 

PRINT "SPECIFICA (0) 

PR 

; EA 





INT 



2041 

S3 


365.256 


4050 

INPUT "O A INIZIO ANNO 

(1) 

2042 

E3 

— 

.01 67 


" ; DT 


2043 

A3 

ss 

94.555 + 91.445 


4051 

IF DT < >0 AND DT < 

> 1 

2044 

P3 

ss 

A3 * (1 - E3 * E3) / 

2 

THEN 4020 







4052 

IF DT = 1 THEN 4060 


2045 

K3 

= 

1 / E3 


4053 

PRINT : PRINT : PRINT 


2046 

U3 

r= 

P3 / E3 


4054 

INPUT "DAI IL NUMERO DI 

Gl 

2047 

J3 

— 

102.6 * Q / 1 80 


ORNI 

DA GENN. 1 980 "; DE 


2048 

W3 

= 

- 3 


4057 

Zi = DE 


2049 

IF EA = 1 THEN TT = 1.05 


4060 

PRINT : PRINT : INPUT " 

DAI 

2050 

INPUT "VUOI MARTE 

ii 

IL 

NUMERO DI GIORNI DA PLOTTARE 

; MA 





" ; DN 


2051 

S4 

= 

686.980 


4070 

PRINT : PRINT : PRINT 


2052 

E4 

= 

. 0934 


4080 

INPUT "DAI IL NUMERO DI 

Gl 

2053 

A4 

— 

154.936 + 128.471 


ORNI 

TRA I PUNTI "; DA 
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4082 

IF DA -X 

> 0 THEN 4800 

4084 

PRINT : PRINT 


4086 

PRINT "0 

NON AMMESSO": GOT 

O 4070 



4800 

HGR2 



4805 

HCOLOR= 3 



481 0 

X = 140:Y 

= 96: 

GOSUB 100 

481 1 

X = 141 :Y 

= 96: 

GOSUB 100 

481 5 

X = 2 4 8 : Y 

= 96: 

GOSUB 100 

4820 

FOR Li = 

0 TO Q2 STEP 1 / 

36 * 

Q2 



4830 

X = XI + 

COS (LI) * 105.9 

4840 

Y = Yl - 

SIN (Li) * 105.9 

* FA 




4850 

GOSUB 100 



4860 

NEXT Li 



51 00 

IF ME = 0 

THEN 

5200 

51 1 0 

A = Al:P = 

Pi :E 

= El : PE = U 

1 :EZ 

= Kl:SRD = 

SI : J 

= Jl :W = W1 

: Z = 

Zi + W 



51 20 

GOSUB 200 

: Fi = 

X:Gl = Y 

51 25 

IF TY = 1 

THEN 

51 40 

51 30 

X = Mi:Y = 

NI : HCOLOR= 0 : G 

OSUB 

1 00 



51 40 

X 

II 

• • 

K 

II 

Gl :Ml 

= X : Ni = Y 


: HCOLOR= 3: GOSUB 100 
5200 IP VE = 0 THEN 5300 
5210 A = A2:P = P2:E = E2:PE = U 

2:EZ = K2:SRD = S2:J = J2:W = W2 

: Z = Zi + W 

5220 GOSUB 200:F2 = X:G2 = Y 
5225 IF TY = 1 THEN 5240 
5230 X = M2:Y = N2: HCOLOR= 0: G 
OSUB 100 

5240 X = F2:Y = G2:M2 = X:N2 = Y 
: HCOLOR= 3: GOSUB 100 
5300 IF EA = 0 THEN 5400 
5310 A = A3 :P = P3:E = E3:PE = U 

3:EZ = K3:SRD = S3:J = J3:W = W3 

:Z = ZI + W 

5320 GOSUB 200 :F3 = X:G3 = Y 
5325 IF TY = 1 THEN 5340 
5330 X = M3:Y = N3: HCOLOR= 0: G 
OSUB 100 

5340 X = F3:Y = G3:M3 = X:N3 = Y 
: HCOLOR= 3: GOSUB 100 
5400 IF MA = 0 THEN 5500 
5410 A = A4:P = P4::E = E4:PE = 
U4:EZ = K4:SRD = S4:J = J4:W = W 
4 : Z = Zi + W 

5420 GOSUB 200:F4 = X:G4 = Y 
5425 IF TY = 1 THEN 5440 
5430 X = M4:Y = N4: HCOLOR= 0: G 
OSUB 100 

5440 X = F4:Y = G4:M4 = X:N4 = Y 
: HCOLOR= 3: GOSUB 100 
5500 IF JU = 0 THEN 5600 
5510 A = A5:P = P5:E = E5:PE = U 


5 :EZ 

= K5:SRD 

= 

S5:J = J5:W = W5 

: Z * 

Zi + W 



5520 

GOSUB 200 

: F5 = X:G5 = Y 

5525 

IF TY = 

1 

THEN 5540 

5530 

X = M5:Y 

= 

N5: HCOLOR= 0: G 

OSUB 

1 00 



5540 

X = F5:Y 

= 

G5:M5 = X:N5 = Y 

: HCOLOR= 3: < 

SOSUB 100 

5600 

IF SA = 

0 

THEN 6000 

561 0 

A = A6:P 

= 

P6:E = E6:PE = U 

6 :EZ 

= K6:SRD 

= 

S6:J = J6:W = W6 

: Z = 

Zi + W 



5620 

GOSUB 200 

:F6 = X:G6 = Y 

5625 

IF TY = 

1 

THEN 5640 

5630 

X = M6:Y 

= 

N6: HCOLOR= 0: G 

OSUB 

1 00 



5640 

X = F6:Y 

= 

G6:M6 = X:N6 = Y 

: HCOLOR= 3: GOSUB 100 


6000 ZI = Zi + DA 

6100 IF Zi > DE + DN THEN 7000 

6200 GOTO 5100 

7000 X = 279 :Y = 190: GOSUB 100: 
INPUT A$ 

7050 REM (7000) PLOTTA I PUNT 
I FINO A 190 E RIMANE IN ATTESA 
DI UN CARATTERE PER RICOMINCIARE 

7100 ZI = 0:DE = 0 
7200 GOTO 1000 
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-ty TI-99/4A 




Il Bruco di Bemcr 




Nerm, il bruco, si è perso nel castello di Be- 
mer ed ha bisogno del tuo aiuto per ritrovare 
la via di casa. 

Devi guidarlo attraverso 11 stanze, dirigendo 
verso i funghi magici che gli ridonano forza. 
Dopo aver mangiato cinque funghi in una 
stanza, in questa si aprirà un passaggio ver¬ 
so la successiva. 

Si inizia con quattro vite; una vita viene per¬ 
sa se Nerm tocca le pareti o la sua stessa co¬ 
da. Nella parte superiore dello schermo com¬ 


pare il punteggio attuale, la stanza in cui si 
trova Nerm, quanti funghi deve mangiare 
per uscirne, e quante vite possiede ancora, 
compresa quella attuale. 

Guadagni 100 punti, più punti premio, per 
ogni fungo mangiato, e una vita premio al 
superamento di ogni due stanze. 

Questo programma gira sia sull'Extendend 
che sul TI Basic. Si usano i tasti £,S,D, e X 
(freccette) per guidare Nerm. 


90 REM TI BRUCO DI BEMER 
100 DIM NN(29),RANK$(12) 

110 GOSUB 3610 

120 GOTO 1770 

130 FOR 1=1 TO LEN(H$) 

140 CALL HCHAR(ROW,COL+I,ASC(SEG 
$(H$,I,1))) 

150 NEXT I 
160 RETURN 
170 CALL KEY(0,K,ST) 

180 IF (K<>68)+(OD=2)THEN 220 
190 DX=1 
200 DY=0 
210 DI=1 

220 IF (K<>83) + (OD = 1)THEN 260 
230 DX=-1 
240 DY= 0 
250 DI=2 

260 IF (K<>69) + (OD=3)THEN 300 
270 DY=-1 
280 DX=0 
290 DI=4 

300 IF (K<>88)+(OD=4)THEN 340 
310 DY=1 



320 DX= 0 
330 DI=3 

340 CALL HCHAR(YA,XA, 136 ) 

350 OD=DI 
360 XA=XA+DX 
370 YA=YA+DY 
380 L=LEN(XA$) 

390 XA$=XA$&CHR$(XA) 

400 YA$=YA$&CHR$(YA) 

410 CALL GCHAR(YA,XA,Z) 

420 IF Z<>32 THEN 510 
430 CALL HCHAR(YA,XA,128) 

440 CALL SOUND(1,622,2) 

450 IF L<WO THEN 170 

460 CALL HCHAR(ASC(YA$),ASC(XA$) 

,32) 

470 LL=LEN(XA$)-1 
4.80 XA$=SEG$ (XA$ ,2, LL) 

490 YA$ =SEG$(YA$,2,LL) 

500 GOTO 170 

510 CALL SOUND(100,311,2) 

520 CALL HCHAR(YA,XA,128) 

530 GOSUB 2350 

540 IF ZOMUSH THEN 770 

550 WO=WO+15+2*LO 

560 IF WO<185 THEN 580 

570 WO = 185 

580 RANDOMIZE 

590 XX=RND*28 + 3 

600 X=RND*19+4 

610 CALL GCHAR(X,XX,Hi) 

620 IF Hl<>32 THEN 590 
630 SC=SC+100+LO*7 
640 HI=HI-1 


I 















650 GOSUB 2350 

660 IF HI>0 THEN 750 

670 CALL HCHAR(3,17,104) 

680 CALL HCHAR(13,2,104) 

690 CALL HCHAR(13,31,104) 

700 CALL HCHAR(23,17,104) 

710 FOR 1=3 TO 30 STEP 3 
720 CALL SOUND(100,1900,I) 

730 NEXT I 
740 GOTO 170 

750 CALL HCHAR(X,XX,MUSH) 

760 GOTO 170 

770 IF Z=104 THEN 810 

780 IF LI=1 THEN 2640 

790 GOSUB 2640 

800 GOTO 960 

810 CALL HCHAR(YA,XA,136) 

820 GOSUB 2510 

830 FOR DE=110 TO 880 STEP 32 
840 PRINT 

850 CALL SOUND(1,DE,2) 

860 CALL SOUND (-1,DE,2) 

870 NEXT DE 
880 LO=LO+1 

890 IF LO=12 THEN 1410 
900 WO=5 
910 Ll=Ll+l 

920 IF LO>EX THEN 3200 
930 CALL COLOR(14,Li,1) 

940 CALL CLEAR 
950 GOSUB 1650 
960 GOSUB 2350 

970 ON LO GOTO 1940,990,1070,111 

0,1150,1190,1250,1030,1110,1300, 

1350,1410 

980 GOTO 1940 

990 REM SECONDO SCHERMO 


1000 

CALL 

HCHAR(13/5,120 

,24) 

1010 

GOTO 

1940 


1020 

REM 

TERZO SCHERMO 


1030 

CALL 

VCHAR(7 r 15,120 

,16) 

1040 

CALL 

HCHAR(9,6,120, 

22) 

1050 

GOTO 

1940 


1060 

REM 

QUARTO SCHERMO 


1070 

CALL 

HCHAR(6,5,120, 

24) 

1080 

CALL 

HCHAR(20,5,120 

,24) 

1090 

GOTO 

1940 


1100 

REM 

QUINTO SCHERMO 

1110 

CALL 

HCHAR(7,6,120, 

22) 

1120 

CALL 

VCHAR(8,15,120 

,16) 

1130 

GOTO 

1940 


1140 

REM 

QUADRO 6 


1150 

CALL 

HCHAR(12,3,120 

,13) 

1160 

CALL 

HCHAR(12,19,120,12) 

1170 

GOTO 

1940 


1180 

REM 

QUADRO 7 


1190 

FOR 

1=8 TO 18 


1200 

CALL 

HCHAR(1,7,120, 

7) 


1210 CALL HCHAR(1,18,120,8) 

1220 NEXT I 

1230 GOTO 1940 

1240 REM QUADRO 8 

1250 CALL HCHAR(8,3,120,13) 

1260 CALL HCHAR(14,12,120,19) 
1270 CALL HCHAR(18,3,120,13) 

1280 GOTO 1940 

1290 REM QUADRO 9 

1300 GOSUB 1720 

1310 FOR T=5 TO 21 

1320 CALL HCHAR(T,4,32,16) 

1330 NEXT T 

1340 GOTO 1940 

1350 GOSUB 1720 

1360 FOR T=5 TO 21 

1370 CALL HCHAR(T,4,32,20) 

1380 NEXT T 

1390 GOTO 990 

1400 REM HAI VINTO ! ! ! 

1410 CALL CLEAR 
1420 CALL SCREEN(3) 

1430 FOR 1=4 TO 8 
1440 CALL COLOR(1,2,1) 

1450 NEXT I 

1460 PRINT TAB(9);"CASA DI NERM! 

Il 

1470 PRINT 
1480 PRINT 

1490 PRINT TAB(12){"GRAZIE!" 

1500 FOR T=1 TO 9 

1510 PRINT 

1520 NEXT T 

1530 FOR T=1 TO 3 

1540 FOR 1=110 TO 880 STEP 30 

1550 CALL SOUND(1,1,2) 

1560 CALL SOUND(-1,I,2) 

1570 NEXT I 

1580 FOR 1=880 TO 110 STEP -30 
1590 CALL SOUND(1,1,2) 

1600 CALL SOUND(-1,1,2) 

1610 NEXT I 
1620 NEXT T 
1630 CALL SCREEN(2) 

1640 GOTO 2790 
1650 CALL CLEAR 

1660 PRINT "PUNTI :";TAB(19);"ST 
ANZA:" 

1670 PRINT "FUNGHI :";TAB(19) ;"VI 
TE : " 

1680 FOR T=1 TO 21 

1690 PRINT 

1700 NEXT T 

1710 RETURN 

1720 FOR T= 5 TO 21 

1730 CALL HCHAR(T,4,120,26) 

1740 NEXT T 
1750 RETURN 



1760 REM PRESENTAZIONE GIOCO 

1770 GOSUB 3310 

1780 MUSH=112 

1790 LI = 4 

1800 SC = 0 

1810 LO=1 

1820 HI = 5 

1830 WO= 5 

1840 EX = 2 

1850 Ll=3 

1860 GOSUB 2250 

1870 CALL CLEAR 

1880 CALL SCREEN(2) 

1890 FOR 1=3 TO 8 
1900 CALL COLOR(1,16,1) 

1910 NEXT I 
1920 GOSUB 1650 
1930 GOSUB 2350 
1940 XA$ = "" 

1950 YA$ = "" 

1960 XA=17 
1970 YA=18 
1980 DX= 0 
1990 DY = -1 

2000 IF HI< 6 THEN 2020 
2010 HI=5 

2020 IF HI>-1 THEN 2040 
2030 HI=0 
2040 DI=4 

2050 FOR 1=2 TO 31 STEP 29 
2060 CALL VCHAR(3,I,120,21) 

2070 NEXT I 

2080 FOR 1=3 TO 23 STEP 20 
2090 CALL HCHAR(1,3,120,28) 

2100 NEXT I 

2110 CALL HCHAR(24,3,137,28) 

2120 IF HI>0 THEN 2180 
2130 CALL HCHAR(3,17,104) 

2140 CALL HCHAR(12,2,104) 

2150 CALL HCHAR(12,31,104) 

2160 CALL HCHAR(23,17,104) 

2170 GOTO 360 
2180 RANDOMIZE 
2190 XX = RND*28 + 3 

2200 X=RND*19+4 

2210 CALL GCHAR(X,XX,Hi) 

2220 IF Hl<>32 THEN 2180 
2230 CALL HCHAR(X,XX,MUSH) 

2240 GOTO 360 
2250 CALL CLEAR 

2260 PRINT TAB(8);"STAI PRONTO!" 

2270 FOR T=1 TO 12 

2280 PRINT 

2290 NEXT T 

2300 FOR 1=1 TO 14 

2310 CALL SOUND(100,NN(I),2) 

2320 NEXT I 


2330 RETURN 

2340 REM STAMPA IL PUNTEGGIO 

2350 H$ =STR$(SC) 

2360 ROW=1 
2370 COL=10 
2380 GOSUB 130 
2390 HS =STR$(LO) 

2400 COL= 28 
2410 GOSUB 130 
2420 H$=STR$(HI) 

24 3 0 ROW= 2 
2440 COL=10 
2450 GOSUB 130 
2460 H$ =STR$(LI) 

2470 COL=28 
2480 GOSUB 130 
2490 RETURN 

2500 REM NERM SE NE VA 

2510 SP=SP-5 

2520 GOSUB 2350 

2530 HI = 5 

2540 L=LEN(XA$) 

2550 FOR 1=1 TO L 

2560 CALL SOUND (2,110 + 1 * 2,2) 

2570 CALL HCHAR(ASC(YA$),ASC(XA$ 
) ,32) 

2580 LL=LEN(XA$)- 1 
2590 XA$ =SEG$(XA$,2,LL) 

2600 YA$=SEG$(YA$,2,LL) 

2610 NEXT I 
2620 RETURN 
2630 REM OHI ! ! 

2640 CALL CLEAR 

2650 PRINT TAB(10);"OHI,OHI!!" 

2660 FOR 1=1 TO 12 

2670 PRINT 

2680 NEXT I 

2690 LI=LI- 1 

2700 FOR 1=14 TO 24 

2710 CALL SOUND(10,1*40,2) 

2720 NEXT I 

2730 FOR 1=1 TO 30 

2740 NEXT I 

2750 IF LI<1 THEN 2790 
2760 GOSUB 1650 
2770 RETURN 

2780 REM IL GIOCO FINISCE 
2790 CALL CLEAR 
2800 FOR 1=3 TO 8 
2810 CALL COLOR(1,16,1) 

2820 NEXT I 

2830 IF HS>SC THEN 2950 

2840 HS=SC 

2850 FOR 1=1 TO 5 

2860 PRINT 

2870 NEXT I 

2880 PRINT TAB (10); "NUOVO RECORD 
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2890 

FOR T=110 TO 

1760 STEP 50 

2900 

CALL SOUND(2, 

T,2) 

2910 

NEXT T 


2920 

FOR 1=1 TO 5 


2930 

PRINT 


2940 

NEXT I 


2950 

se 

PRINT TAB(7); 

"TUOI PUNTI:"; 

2960 

PRINT 


2970 

HS 

PRINT TAB(7); 

"RECORD 

2980 

FOR 1 = 1 ’TO 3 


2990 

PRINT 


3000 

NEXT I 


3010 

PRINT TAB(5); 

"IN CLASSIFICA 


SEI : " 

3020 PRINT 

3030 PRINT TAB(9);RANK$(LO) 

3040 FOR 1=15 TO 29 

3050 CALL SOUND(100,NH(I),2) 

3060 NEXT I 
3070 PRINT 
3080 PRINT 
3090 PRINT 

3100 PRINT "PREMI:C PER CONTINUA 
RE F PER FINIRE)" 

3110 FOR T=1 TO 4 
3120 PRINT 
3130 NEXT T 
3140 CALL KEY(0,K,ST) 

3150 IF ST=0 THEN 3140 

3160 IF (K<>67) * (KO70) THEN 3140 

3170 IF K= 67 THEN 1770 

3180 STOP 

3190 REM VITA EXTRA 
3200 CALL CLEAR 

3210 PRINT TAB(10);"VITA PREMIO" 
3220 FOR 1=1 TO 12 

3230 PRINT 
3240 NEXT I 

3250 FOR 1=1 TO 30 STEP 2 
3260 CALL SOUND (100,1175,I) 

3270 NEXT I 

3280 EX=EX+3 

3290 LI=LI+1 

3300 GOTO 930 

3310 CALL CLEAR 

3320 FOR T=3 TO 8 

3330 CALL COLOR(T,2,l) 

3340 NEXT T 

3350 CALL COLOR(14,3,1) 

3360 CALL SCREEN(15) 

3370 PRINT TAB(9);"BENVENUTO A" 
3380 FOR T=1 TO 4 
3390 PRINT 
3400 NEXT T 

3410 PRINT TAB(8);"NERM DI BEMER 


3420 FOR T= 1 TO 9 
3430 PRINT 
3440 NEXT T 

3450 PRINT " USA E,S,D & X PER M 
UOVERE" 

3460 PRINT 

3470 CALL HCHAR(21,3,136,4) 

3480 CALL HCHAR(21,8,128) 

3490 FOR 1=1 TO 22 

3500 CALL HCHAR(21,6+1,136) 

3510 CALL HCHAR(21,7+1,128) 

3520 CALL SOUND(10,622,2) 

3530 CALL HCHAR(21,2+1,32) 

3540 FOR T=1 TO 20 

3550 NEXT T 

3560 NEXT I 

3570 FOR T=1 TO 100 

3580 NEXT T 

3590 RETURN 

3600 REM RIDEFINÌ ZIONE CARATTER 
I 

3610 FOR 1=104 TO 136 STEP 8 
3620 READ A$ 

3630 CALL CHAR(I,A$) 

3640 NEXT I 

3650 DATA FFFFFFFFFFFFFFFF,187EF 

FFF18181818,FF81BDA5A5BD81FF 
3660 DATA 8142243C7E5A3C18,387CF 
EFEFEFE7C38 

3670 CALL COLOR(10,2,2) 

3680 CALL COLOR(11,14,1) 

3690 CALL COLOR(12,2,10) 

3700 CALL COLOR(13,7,1) 

3710 CALL CHAR(137,"FFFFFFFFFFFF 
FFFF") 

3720 FOR 1=1 TO 9 
3730 READ RANKS(I) 

3740 NEXT I 

3750 FOR 1=10 TO 12 

3760 RANK$(I)="ARCA DELLA GLORIA 

fi 

3770 NEXT I 

3780 DATA BROCCO,PRINCIPIANTE f NO 
VIZIO,MEDIO 

3790 DATA MAESTRO,GRAN MAESTRO,C 

AMPIONE,SUPERCAMPIONE 
3800 DATA SUPER STAR 
3810 FOR 1=1 TO 29 
3820 READ NN(I) 

3830 NEXT I 

3840 DATA 262,349,40000,349,392, 

40000,392,440,523,440,523,440,34 

9,40000 

3850 DATA 349,40000,40000,262,24 
7,262,294,294,262,40000,40000,40 
000,330,330,349 
3860 RETURN 
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* TI-99/4A 


In questo programma (in TI Basic) vengono 
definiti caratteri speciali per creare un gioco 
veramente divertente ed impegnativo. Lo 
scopo è di catturare le facce arcigne che 
compaiono sullo schermo, col vostro goblin 
(genietto) cercando nel comtempo di evitare 
gli ostacoli che si trovano sul vostro cammi¬ 
no. Avete a vostra disposizione i tasti "0" e 
"P" per spostarvi a sinistra o a destra, ma 
ricordatevi che nel contempo il goblin si spo¬ 
sta automaticamente di una riga verso l'alto 
e nelle frenesia di catturare le facce, potreste 


90 REM TI GOBLIN 

100 RANDOMIZE 

110 GOTO 170 

120 FOR 1=1 TO LEN(H$) 

130 R=ASC(SEG$(H$,I,1)) 

140 CALL HCHAR(ROW,XCOL+I, R) 

150 NEXT I 
160 RETURN 
170 A=96 
180 B=97 
190 C=104 
200 D=105 
210 Z=24 
220 COL=16 
230 W=0 
240 G=0 
250 S=J 

260 CALL CLEAR 

270 IF S>HS THEN 290 

280 GOTO 300 

290 HS=S 

300 GOSUB 1270 

310 CALL SCREEN(16) 

320 PRINT " GOBLIN" 

330 PRINT 

340 PRINT " PM : " 

350 FOR 1=1 TO 19 
360 PRINT 
370 NEXT I 

380 PRINT "0=SINISTRA P= 

DESTRA"; 

390 ROW= 4 


far fracassare il goblin contro gli ostacoli, che 
sono veramente tanti e ravvicinati. 

Ad ogni faccia catturata viene aggiornato il 
punteggio che appare in alto a sinistra. Una 
singola fase del gioco termina quando il ge¬ 
nietto urta contro un ostacolo. A questo le 
restanti facce tristi cambiano espressione e 
ridono; vi si chiederà se volete continuare o 
no. Se risponderete "S" comparirà in centro, 
in alto, il vostro punteggio massimo prece¬ 
dente (PM) ed il gioco ricomincerà. 


400 XCOL=17 
410 H$=STR$(HS) 

420 GOSUB 120 
430 FOR 1=1 TO 80 
440 X=INT(RND*30)+2 
450 Y=INT(RND*16)+6 
460 CALL GCHAR(Y,X, L) 

470 IF L=B THEN 440 
480 CALL HCHAR (Y,X,B) 

490 NEXT I 
500 FOR 1=1 TO 27 
510 X=INT(RND*30)+2 
520 Y=INT(RND*16)+6 
530 CALL GCHAR(Y,X,L) 

540 IF (L=B)+(L=C)+(L=D)THEN 510 
550 CALL GCHAR(Y+1,X-1,L) 

560 CALL GCHAR(Y+1,X,M) 

570 CALL GCHAR(Y+l,X+l,N) 

580 IF (LOB) + (MOB) THEN 620 
590 CALL HCHAR(Y,X,D) 

600 G=G+1 

610 GOTO 630 

620 CALL HCHAR(Y,X,C) 

630 NEXT I 

640 CALL SOUND(100,500,6) 

650 CALL HCHAR(Z,COL,32) 

660 IF LOC THEN 680 
670 CALL SOUND(10,880,4) 

680 Z=Z-1 

690 IF Z>4 THEN 710 
700 Z = 23 

710 CALL KEY(0,L,ST) 
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720 IF (L<>79) * (LO80) THEN 770 
730 IF L<>79 THEN 760 
740 COL=.COL-SGN (COL-2) 

750 GOTO 770 

760 COL=COL+SGN(30-COL) 

770 CALL GCHAR( Z,COL,L) 

780 IF L=B THEN 1060 
790 IF L=C THEN 850 
800 CALL HCHAR(Z,COL,A) 

810 FOR 1=1 TO 25 
820 NEXT I 

830 IF W=27-G THEN 920 
840 GOTO 650 
850 W=W+1 
860 S=S+25 
870 H$=STR$(S) 

880 ROW=4 
890 XCOL=3 
900 GOSUB 120 
910 GOTO 800 
920 J=S 

930 CALL HCHAR(10,1,32,31) 

940 GOSUB 120 

950 H$ = " ** * * BENISSIMO! ****•' 

960 XCOL= 6 

970 ROW=10 

980 GOSUB 120 

990 FOR 1=1 TO 15 

1000 X=INT(RND*100)+300 

1010 CALL SOUND(75,X,8) 

1020 NEXT I 
1030 FOR 1=1 TO 100 
1040 NEXT I 
1050 GOTO 210 

1060 REM HEILA !...TI SEI FRAC 
ASSATO... 

1070 CALL HCHAR(Z,COL,98) 

1080 FOR 1=1 TO 30 STEP 3 
1090 CALL SOUND(50,-7,1) 

1100 NEXT I 

1110 CALL CHAR(104,"3C42A581A599 
423C") 

1120 J=0 


1130 HS=S 

1140 H$="GIOCHI ANCORA ? (S/N)" 

1150 ROW=22 

1160 XCOL=2 

1170 GOSUB 120 

1180 CALL KEY(0,L,ST) 

1190 IF ST=0 THEN 1180 
1200 H$=CHR$(L) 

1210 IF H$="S" THEN 1250 

1220 CALL CLEAR 

1230 PRINT "ARRIVEDERCI" 

1240 END 

1250 CALL CHAR(104,"3C3CA58199A5 
423C") 

1260 GOTO 210 

1270 REM DEFINIZIONE CARATTERI 
SPECIALI 

1280 REM CARATTERE 96 - GOBLIN 

1290 CALL CHAR(96,"7EDBDBFFA55A5 
AA5" ) 

1300 REM CARATTERE - OSTACOLO 

1310 CALL CHAR(97,"CCCC3333CCCC3 
333") 

1320 REM CARATTERE 98 - GOBLI 
N FRACASSATO 

1330 CALL CHAR(98,"CCCC33337EDBF 
FBD" ) 

1340 REM CARATTERE 104 - VISO 
ACCIGLIATO 

1350 CALL CHAR(104,"3C3CA58199A5 
423C") 

1360 REM CARATTERE - 105 - VIS 
O SORRIDENTE 

1370 CALL CHAR(105,"3C42A581A599 
423C") 

1380 CALL COLOR(10,7,1) 

1390 FOR 1=5 TO 8 
1400 CALL COLOR(1,16,14) 

1410 NEXT I 
1420 RETURN 



Se avete l'esigenza di visualizzare un orologio 
digitale di grandi dimensioni, questo è il pro¬ 
gramma che fa per voi. 


brevissimo, è autoesplicante. Sappiate sola¬ 
mente che per regolare velocemente i minuti 
dovete premere ENTER. Dimenticavamo: 
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così come l'orologio ritarda sensibilmente, 
occorre modificare adeguatamente (fate i 


test del caso) la linea 370. 


10 

DIM s(11,5) 


20 

DIM c$ (8,4) 


30 

LET a$= n 1222134441151611515 
166215161511612115555121211 


215184848" 


40 

FOR i=l TO 11 


50 

FOR k=l TO 5 


60 

LET s(i,k)=VAL a$((i-l)* 
) 

NEXT k 

5+k 

70 


80 

NEXT i 


90 

LET b$=" { 3SG8 } {SG8} {SG8} 


{2SG8} {SG8} {SG8} 

{SG8} {2SG8} " 


100 

FOR k=l TO 6 


110 

LET c$(k)=b$(k*4-3 TO k* 

4) 

120 

NEXT k 


128 

PRINT TAB 13;"CLOCK" 


132 

PRINT "inserisci:" 


135 

PRINT "ora iniziale:"; 


140 

INPUT h 


150 

PRINT h 


160 

PRINT "minuto iniziale:" 

• 

f 

170 

INPUT m 


180 

PRINT m 


200 

PRINT "per fare partire 

il 


clock" 

210 PRINT "premi enter" 

220 INPUT u$ 

230 CLS 

232 PLOT 30,88: DRAW 185,0 

233 DRAW 0,70: DRAW -185,0: 

DRAW 0,-70 
240 LET m=m+l 

250 IF m<>60 THEN GO TO 300 
260 LET m=0 
270 LET h=h+l 

280 IF h<>24 THEN GO TO 300 

290 LET h=0 

300 LET hl=INT (h/10) 

310 LET h2=h-hl*10 
320 LET ml=INT (m/10) 

330 LET m2=m-ml*10 
345 FOR f=l TO 5 

350 PRINT AT 3+f,6;c$(s(hl+l,f) 
) ;c$(s(h2+1,f));c$(s(11,f)) 

351 PRINT AT 3 + f,18;c$(s(ml+1,f 
));c$(s(m2+l,f)) 

360 NEXT f 
370 PAUSE 3040 
400 GO TO 240 



sini=lsii7' 

_ 


^peciriipi 



Elicottero 


Ai comandi di un nuovo elicottero da bom¬ 
bardamento, dovete cercare di distruggere 
tutte le basi nemiche. Naturalmente diffe¬ 
renti punteggi vengono realizzati in relazione 
all'Importanza strategica dei diversi obiettivi 
colpiti: in tal senso particolarmente appetibi¬ 
le in termini dei punti risulta la prima base, 
caratterizzata da lampeggianti bagliori ra¬ 
dioattivi. 

Per sganciare le bombe sul bersaglio premete 


il tasto 'D'. Dovete prestare attenzione al 
momento del tiro, sia perché la basi nemiche 
sono tredici e voi avete solo 14 bombe, sia 
perché ogni bomba andata 'a vuoto' com¬ 
porta una penalizzazione di 200 punti. 

Il programma, realizzato per lo Spectrum 
I6K, va salvato su nastro e reso autpartente 
con il comando SAVE "ELICOTTERO" LINE 
I. 
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1 LET HS = 0: CLS : GO SUB 301 : 

GO SUB 1000 

2 LET sc=0: LET shot=14: 

LET z=RND/100 : LET x=RND*5 

0 

3 INK 4: BORDER 1: CLS : 

FOR n=0 TO 20: BEEP z,x: 
PRINT AT n, 31 ;"{SG8}": 

NEXT n 

4 FOR n=0 TO 20: BEEP z,x: 

PRINT AT n , 0;"{SG8}": 

NEXT n: FOR n=0 TO 31 : 

BEEP z,x: PRINT AT 0,n;" 

{SG8}": NEXT n 

5 INK 0: PRINT AT 19,1; INK 1 
; FLASH 1 ;"A": PRINT AT 19, 
3;"A";AT 19,4;"F";AT 19,7;” 
A";AT 19,9;"A";AT 19,10;"A" 
;AT 19,11 ;"A" 

6 PRINT AT 19,13;"F";AT 19,14 
;"F ";AT 19,16;"A";AT 19,19; 
"A";AT 19,20;"A";AT 19,24;" 
F" 

7 INK 1: PRINT AT 2,2;" GGGGGG 

GGG GG G GG" 

8 PRINT AT 3,3;"GG G G G G 

GG G G " 

9 FOR n=0 TO 5: INK 2: 

CIRCLE 240,160,n: NEXT n: 
INK 0 

10 LET a=4: LET b=l 

12 LET q$=STR$ (se) 

13 FOR j=LEN q$ TO 5: LET q$=q 
$+" ": NEXT j 

15 IF (shot=0 AND a=4) THEN 
PRINT AT 21,30;shot: 

PRINT AT 21,7;q$;" ": 

PRINT INVERSE 1 ; FLASH 1 ; 
AT 11,6;"LA PARTITA E’ FINI 
TA": FOR n=0 TO 500: NEXT n 
: GO TO 6000 

20 PRINT AT 21,23 ;"BOMBE= ";sh 
Ot: PRINT AT 21,0;"PUNTI= " 

;q$: PRINT AT a,b;" CD": 
BEEP .003,40 

22 IF SC> = 1 000 THEN GO TO 600 
0 

24 IF shot=9 THEN PRINT AT 21 
,31;" « 

30 LET b=b+l 

40 FOR z=0 TO 5: IF b=25 

THEN LET b=l: LET a=4: 
PRINT AT 4,25;" " 

50 IF INKEY$="d" OR INKEY$="D" 
THEN LET shot=shot-l: 
PRINT AT a ,b;" ": 

GO TO 100 


60 GO TO 20 

100 PRINT AT a,b;" ": LET a=a+l 
: BEEP .05,a+5 

110 PRINT AT a,b;"E": FOR z=0 
TO 5: NEXT z 

115 IF a=l8 AND ATTR ( 19,b)>128 

AND b>l THEN PRINT AT a,b 
;" ": GO TO 10 

116 IF a=l8 AND ATTR (19,b)>185 

AND b=l THEN PRINT AT a,b 
; " " : GO TO 10 

120 IF aOl 9 THEN GO TO 200 
130 IF b=l THEN PRINT AT a,b; 

FLASH 1; INK 2;"B": LET se 
=sc+200: GO TO 10 
140 IF b=3 OR b=7 OR b=9 OR b= 
10 OR b=l1 OR b=l6 OR b=19 
OR b=20 THEN PRINT AT a,b 
; FLASH 1; INK 2;"B": LET s 
c=sc+50: GO TO 10 
150 IF b=4 OR b=l3 OR b=l 4 OR b 
=24 THEN PRINT AT a,b; 

FLASH 1; INK 2 ;"B": LET se 
= sc+l00 : GO TO 10 
200 IF a>l8 THEN PRINT INK 3; 
FLASH 1;AT a,b;"E": BEEP . 
1, . 2 : BEEP .1,1: BEEP .2,.l 
: BEEP .05,.1 : PAUSE 10: 

PRINT AT a,b;" ": LET sc=s 
e-200: GO TO 10 
300 GO TO 100 
400 FOR f=l TO 7: READ p$ 

410 FOR n=0 TO 7: READ r 

420 POKE USR p$+n,r 

430 NEXT n 

440 NEXT f 

450 RETURN 

500 DATA "a",26,62,126,153,255, 

255.231.231 

510 DATA "b",42,152,154,34,85,2 
32,198,165 

520 DATA "e",137,80,63,83,136,0 
,0,0 

530 DATA "d",l,16,252,254,254,6 
0,17,254 

540 DATA "e",0,24,60,24,24,36,6 
0,24 

550 DATA "f",255,153,255,153,25 

5.153.231.231 

560 DATA "g",56,60,65,129,67,65 
,36,0 

1000 LET a$=" ~ELICOTTE 

RO“ 

TI TROVI 

ALLA GUIDA DI UN NUOVO ELIC 
OTTERO DA BOMBARDAMENTO CON 
IL QUALE DEVI DISTRUGGERE 
TUTTE LE BASI NEMICHE. 
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CD" 


.PUNTEGGI : 

A= 50 

F=100 (A LAMPEGGIANTE=200). 


.... IL TUO ELICOTTERO CD 
E' DOTATODI 14 BOMBE E PE 
R DISTRUGGERE 13 BASI AF 
NEMICHE. PER SGAN 

CIARE PREMI <D> BUO 

NA FORTUNA ! ! " 

1001 LET 0=0: LET p=0: LET g= 
LEN a$ 

1002 FOR n=l TO g 

1003 IF p< 32 THEN GO TO 1005 

1004 LET o=o+l: LET p=0 


1005 PRINT AT o,p; INK 1;" 

1 006 BEEP RND/50,RND*50 

1007 PRINT AT o,p;a$(n): LET p=p 
+ 1 

1008 NEXT n 
5000 RETURN 

6000 CLS : IF SC>HS THEN 

PRINT AT 4,0;"BEN FATTO ! 

IL PUNTEGGIO PIU'AL 
TO ! !" : LET HS = SC 

6001 PRINT AT 20,0;"VUOI GIOCARE 

ANCORA ? (S/N)" 

6002 INPUT a$ 

6005 IF a$="S" OR a$="s" THEN 

CLS : GO TO 2 

6006 STOP 




Levrieri 


mHBBBHMnM 





Probabilmente pochi lettori hanno avuto 
l'occasione di assistere ad una corsa di le¬ 
vrieri. Con il programma qui pubblicato vi of¬ 
friamo l'opportunità di osservare questi ele¬ 
ganti animali all’opera. Il gioco si compone di 
due distinte fasi; la prima riguarda la raccol¬ 
ta delle scommesse, elemento che caratte¬ 
rizza qualsiasi corsa di animali. I giocatori 
(fino ad un massimo di 6) possono scegliere il 
cane su cui puntare, oltre che sulla base dei 
‘colori sociali', anche tenendo conto delle 
quote che gli allibratori pagheranno al vinci¬ 
tore. Le puntate devono essere comprese tra 
1000 e 999999 sterline pena la non accetta¬ 
zione delle stesse. La seconda fase è natural¬ 


1 REM *** LEVRIERI *** 

10 GO SUB 3000 
20 CLS 

50 GO SUB 1300 
100 REM scommesse 
110 RANDOMIZE 
120 GO SUB 1500 

130 PRINT AT 7,0;"qui trovate i 
tassi di pagamento" 


mente costituita dalla gara vera e propria. I 
sei levrieri si lanciano in direzione del tra¬ 
guardo, e il vincitore farà riscuotere una di¬ 
screta somma a chi ha avuto fiducia in lui. 
Nel caso vogliate aumentare la suspence, 
aumentate il valore della variabile 'ritardo' 
alla linea 2010: i cani raggiungeranno il tra¬ 
guardo in un tempo superiore. 

Unica raccomandazione: non premete il ta¬ 
sto 'F' al termine della gara per uscire dal 
gioco se prima non avete salvato su nastro il 
programma! Infatti tale opzione comporta 
l'esecuzione di un comando NEW, con le 
conseguenze facilmente immaginabili. 


140 PRINT AT 9,0; INVERSE 1;"N. 

tasso giocatore punta 
ta " 

150 FOR 0=1 TO 6 

160 PRINT INK (7-0);AT 10+o,0; 

o;AT 10+o,5;p(o);":";q(o) 
170 NEXT o 

210 DIM m$(6,10): DIM b(6) 

220 FOR i=1 TO 6 
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230 PRINT AT 18,0;"vuoi puntare 
sul FLASH 1; INK (7-i); 
"levriero N. ";i; FLASH 0; 
INK 0;" ?" 

240 BEEP 0.25,0; INPUT 

INVERSE 1;"RISPONDI s / n 
. ** • a$ 

250 IF a$="n" THEN GO TO 300 
260 IF a$<>"s" THEN GO TO 24 
0 

270 INPUT "INSERISCI IL TUO NOM 
E : ";m$(i) : 

PRINT INK (7-i);AT 10+i,l 
2;m$(i) 

280 INPUT "FAI LA PUNTATA (piu' 
di 1000 £);b(i): IF b(i 
)<1000 THEN GO TO 280 

282 IF INT b(i)<>b ( i) THEN 

GO TO 280 

283 IF b(i)>999999 THEN 

GO TO 280 

285 PRINT INK (7-Ì);AT 10+i,24 
; "\";b(i) 

290 GO TO 310 

300 LET m$ (i) = "* - 

PRINT INK (7-i);AT 10+i,l 
2 ;m$(i );AT 10+i,24;"* - *" 

310 NEXT i 

320 PRINT AT 18,0;"ora potete a 
ndare ad assistere 
BEEP 1,0 

330 PRINT AT 20,0;"alla gara, 
premendo un tasto" 

340 IF INKEY$="" THEN GO TO 33 
0 

400 REM allestimento corsa 

410 CLS : PRINT INVERSE 1 ;"gio 

catore ";AT 0,12 ;"N.";AT 0, 

17 ;"poste";AT 0,23;"puntate 
11 

420 FOR j=l TO 6 
430 PRINT INK (7-j);AT j,0;m$( 
j);AT j,12;j;AT j,17;p(j);" 
:";q(j);AT j,23;"£";b(j) 

440 NEXT j 

510 FOR i=l TO 6 

520 PRINT AT 8+2*(6-i),0; 

INVERSE 1; INK i;7-i 
530 PRINT INVERSE 1;AT 9+2*(i- 
1),0; INK (7-i);" TH" 

540 NEXT i 

550 PRINT AT 0,31;"!";AT 1,31;" 
A";AT 2,31;"R";AT 3,31;"R"; 
AT 4,31;"I";AT 5,31;"V"; 

AT 6,31 ;"O";AT 7,31 ;"!" 

600 REM corsa 

610 PRINT INVERSE 1;AT 12,6;"P 


REMI UN TASTO";AT 15,6;"P 
ER DARE IL VIA" 

620 IF INKEY$="" THEN GO TO 60 
0 

630 PRINT AT 12,6;" 

";AT 15,6;" 

II 

640 DIM r(6) 

650 LET k = INT (RND*6)+1 
660 GO SUB 2000: PRINT AT 9+2*( 
k-1) ,r (k); INK (7-k);" TH" 

670 LET r(k)=r(k)+1 
680 GO SUB 2000: PRINT INK (7- 
k);AT 9+2*(k-1),r(k);" RF" 

690 IF r (k)< 28 THEN GO TO 650 
710 GO SUB 2000: PRINT AT 9+2*( 
k-1),30; FLASH 1; INK (7-k) 

• n TH " 

720 PRINT AT 8+2*(k-1) ,31 ;"!"; 

AT 10+2*(k-1),31;"!" 

730 PAUSE 50: BEEP 1,0 
740 PRINT AT 9 + 2*(k-1) , 4 ;"per r 
iscuotere la vincita";AT 8+ 
2* (k-1) ,4 ;"premi qualunque 
tasto " 

750 IF INKEY$="" THEN GO TO 74 
0 

800 REM vincite 
810 CLS 

820 PRINT AT 2,0; INK (7-k); 

INVERSE 1 ;"IL LEVRIERO NUM 
ERO ";k;" HA VINTO !" 

830 PAUSE 25: IF b(k)=0 THEN 
GO TO 900 

840 PRINT AT 5,0; INVERSE 1; 

INK (7-k);m$(k);" HA PUNTA 
TO SU DI LUI" 

850 PRINT AT 7,0;"la puntata er 
a "; INVERSE 1; INK (7-k);" 
£ ";b(k);" a ”;p(k);":";q 
(k) 

860 PRINT AT 9,0;"quindi riscuo 
ti "; INVERSE 1; INK (7-k); 
" £ " ; I NT (100*b(k) *p(k)/q(k 
)+0.5)/I00 

870 PRINT AT 12,0;"( spiacenti 
per gli altri ! '" hanno 

perso tutto ! ! ! )" 

880 GO TO 950 

900 PRINT AT 8,0;"nessuno aveva 
puntato su questo levriero 

i » 

910 PAUSE 25: PRINT AT 10 f 0;"sp 
iacenti ! avete perso tutto 
! » 

950 PAUSE 50: BEEP 1,0 
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960 

PRINT AT 18,0; 

INVERSE 1 ;"p 

1 530 


remi <R> per un', 

altra ga 

1 540 


ra "* '"premi 

<F> 

per us 

1 550 


ciré " 



1560 

970 

IF INKEY$="r" 

THEN 

GO TO 2 

2000 


0 



2010 

980 

IF INKEY$<>"f" 

THEN 


2020 


GO TO 960 




990 

NEW 



2030 

1 300 

REM presentazione 


2040 

1 31 0 

FOR 1=0 TO 7 



3000 

1 320 

INK (7-1): PAPER 1 


3005 

1 330 

PRINT AT 1,2;" 

{SG8 } 


3010 



{SG8}" 

3020 

1 340 

PRINT AT 2,2;" 

{SG8 } 

SEI LEV 

3030 


RIERI GAREGGIANO {SG8}" 

3040 

1 350 

PRINT AT 3,2;" 

{ SG8 } 


3050 



{SG8}" 

3060 

1 360 

PRINT AT 4,2;" 

{SG8 } 

QUALE 

3070 


VINCERÀ' ? 

{SG8}" 

3090 

1 370 

PRINT AT 5,2;" 

{SG8 } 


6000 



{SG8}" 


1 380 

PAUSE 25 



6010 

1 390 

NEXT L 




1 400 

RETURN 



6020 

1 500 

REM quote 




1 51 0 

DIM p(6): DIM 

q (6) 


6030 

1 520 

FOR 0=1 TO 6 





LET p(o)= INT (RND*9 + 1) 

LET q(o)=INT (RND*9+1) 

NEXT o 

RETURN 

REM loop di ritardo 
LET ritardo=0 

IF ritardo>8 THEN LET rita 
rdo=8 

FOR d=0 TO ritardo: NEXT d 
RETURN 

REM set grafico ’ 

RESTORE 6000 
FOR f=l TO 4 
READ p$ 

FOR n=0 TO 7 
READ r 

POKE USR p$+n,r 
NEXT n 
NEXT f 
RETURN 

DATA "t", 1 92,48,1 5,7,59,64, 

1 28,0 

DATA "h",12,30,240,224,220, 

2 , 1,0 

DATA "r",32,32,63,7,11,8,8, 

6 

DATA "f",12,30,240,224,208, 
16,16,96 


Tarantole 


indai 



Spectru 



In una cantina di vostra conoscenza giace un 
fantastico tesoro, contenuto in cinque bauli. 
A causa dello stato di abbandono del locale, 
quattro enormi tarantole hanno lì trovato il 
loro habitat preferito e si frappongono tra voi 
e tale ricchezza. Usando i tasti '5' e ‘8’ per 
spostarvi rispettivamente a sinistra e a de¬ 
stra, dovete cercare di raggiungere i bauli e 
quindi provvedere a trasportarli dall'altro la¬ 
to della stanza (in verità il trasferimento è 
automatico: voi dovete solo toccare i bauli e 


1 REM *** TARANTOLE *** 
9 REM SET GRAFICO 
10 RESTORE 


quindi attraversare la cantina per realizzare 
lo scambio). Nel frattempo i ragni tesseran¬ 
no una appiccicosa tela, grazie alla quale es¬ 
si si avvicineranno progressivamente al terre¬ 
no aumentando la possibilità di una vostra 
cattura. Il gioco è reso più difficoltoso dal vo¬ 
stro movimento, talvolta lentissimo, talvolta 
assai rapido. Quando avrete perso tre vite 
nel corso di questa impari lotta conoscerete 
punti realizzati e tempo di sopravvivenza. 


20 FOR z=l44 TO 155: FOR x=0 
TO 7 : READ f: POKE USR 
CHR$ z+x,f: NEXT x: NEXT z 


20 




















30 

DATA 

24,24,60,90,24,36,36,6 

40 

b 

DATA 

16,56,84,124,170,170,1 


70,40 

50 

DATA 

e. 

16,16,16,16,16,16,16,1 

60 

b 

DATA 

73,73,73,73,73,73,73,7 

70 

j 

DATA 

128,64,96,24,3,0,0,0 

80 

DATA 

0,0,0,0,0,192,48,15 

90 

DATA 

0,0,0,0,0,3,12,240 

100 

DATA 

1 ,2,1 2,48,1 92,0,0,0 

11 0 

DATA 

£ 

17,18,20,24,16,16,16,1 

1 20 

b 

DATA 

16 

145,82,52,24,16,16,16, 

1 30 

DATA 

16 

144,80,48,16,16,16,16, 

140 

DATA 

0,1 26,1 29,255,1 65,1 29, 


1 29, 

255 

999 

REM 

INIZIALIZ ZAZIONE 


1000 BORDER 3: INK 0: PAPER 7: 
CLS 

1010 PRINT AT 10,6;"ISTRUZIONI ? 
(S/N)" 

1020 INPUT i$ 

1030 IF i$="s" OR i$="S" THEN 
GO SUB 9000 

1 050 LET cnv = l34 : LET bb = 0: 

LET bc=l: LET bcc=0: LET w 
= 0 : LET a = l8: LET b = l : 

LET si=1 2 : LET s4 = 12: 

LET s2 = l6 : LET s3 = 16: 

LET v=9: LET sc=0: LET tm= 
0 : LET tc — 1 : LET ri=1 : 

LET r4 = -l : LET r2 = -l : 

LET r3 = 1 : LET li=3 
1060 CLS 

1070 PRINT AT 0,8; INK 2;"B TA 
RANTOLE B" 

1080 PRINT AT 2,0; INK 5;"VITE 
- ",li,"PUNTI - ",SC 

1090 PRINT AT v-2,0; INK 1;" 

{32SG8 } " 

1100 PRINT AT 19,0; INK 1;" 

{SG6){30SG8}{SG6}" 

1110 PRINT AT a ,b;; INK 0;"A" 
1120 FOR x=18 TO 14 STEP -1: 

PRINT AT x,0 ; INK 2;"L": 
NEXT X 

1130 FOR x = 8 TO si -1 : PRINT AT x 
,8; INK 0 ;"C": NEXT x: 

PRINT AT si,8; INK 2;"B" 
1140 FOR x = 8 TO S.2-1: PRINT AT x 
,13; INK 0;"C": NEXT x: 
PRINT AT s2,13; INK 2 ;"B" 
1150 FOR x=8 TO s3-l: PRINT AT x 
,18; INK 0;"C": NEXT x: 


PRINT AT s3,18 ; INK 2;"B" 
1160 FOR x=8 TO s4-l: PRINT AT x 
,23; INK 0;"C": NEXT x: 
PRINT AT s4,23 ; INK 2;"B" 

1170 FOR x=l TO 26: BEEP .08,x: 

NEXT x 

1171 DEF FN O()=INT ((PEEK 23672 
+ 256*PEEK 23673+65536* 

PEEK 23674)/50) 

1172 DEF FN p(x,y)=(x+y+ABS (x-y 

) )/2 

1173 DEF FN n()=FN p(FN o(),FN o 

0 ) 

1180 FOR h=23674 TO 23672 STEP - 
1 : POKE h,0 : NEXT h 
1199 REM MOVIMENTO 
2000 PRINT AT a,b; INK 0;"A" 

2010 LET bb=bb+(INKEY$="8"T-( 
INKEY$ = "5") 

2015 IF bb=-3 THEN LET bb=-2 

2016 IF bb=3 THEN LET bb=2 

2017 LET bcc=bcc=+l: IF bcc>10 

THEN LET bcc=0: LET bc=rl 

2022 PRINT AT 19,0;CHR$ cnv 
2024 PRINT AT 19,31;CHR$ cnv 

2026 IF cnv=l34 THEN GO TO 2028 

2027 LET cnv=134: GO TO 2030 

2028 LET cnv=l37 

2030 PRINT AT 2,0; INK 5;"VITE 
- ",li,"PUNTI - ",se 

2040 PRINT AT si,8; INK 0 ;"C": 

IF S1=v OR si<V THEN 
LET r1=1 

2041 IF si=18 THEN LET rl=-l 

2042 IF r1=-1 THEN PRINT AT si, 
8 ;" " 

2043 LET sl=sl+rl: PRINT AT si,8 
; INK 2 ;"B" 

2050 PRINT AT s2,13; INK 0 ; "C": 

IF s2=v OR s2<v THEN 
LET r2=l 

2051 IF s2=l8 THEN LET r2=-l 

2052 IF r2 = -1 THEN PRINT AT s2, 
13 ;" " 

2053 LET s2=s2+r2: PRINT AT s2,l 
3; INK 2 ;"B" 

2060 PRINT AT s3,18; INK 0 ;"C": 
IF s3=V OR s3<V THEN 
LET r3=1 

2061- IF s3=l8 THEN LET r3=-l 

2062 IF r3=-l THEN PRINT AT s3, 
18;" " 

2063 LET s3 = s3+r3 : PRINT AT s3,l 
8; INK 2;"B" 

2070 PRINT AT si,23; INK 0;"C": 
IF s4=v OR s4<v THEN 
LET r4=l 
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2071 IF s4=l8 THEN LET r4=-l 

2072 IF r4=-l THEN PRINT AT s4, 
23 ;" " 

2073 LET s4 = s4 + r4 : PRINT AT s4,2 
3; INK 2;"B" 

2081 LET w=w+l 

2082 IF w= 50 THEN GO TO 2084 

2083 GO TO 2090 

2084 PRINT AT v-1,8; INK 0;" IEFG 
HJEFGHJEFGHK " 

2085 LET w=0: LET v=v+l 
2090 IF b=8 AND si=18 THEN 

GO TO 6000 

2100 IF b=l3 AND s2=18 THEN 
GO TO 6100 

2110 IF b=l8 AND s3=18 THEN 
GO TO 6200 

2115 IF v=l9 THEN GO TO 8000 

2120 IF b=23 AND s4=18 THEN 

GO TO 6300 

2121 PRINT AT a,b;" " 

2131 LET b=b+bb+bc 

2132 IF b<1 THEN LET b=l 

2133 IF b>30 THEN LET b=30 

2134 IF b= 30 AND tc = l THEN 

GO TO 2240 

2220 IF b=l THEN LET tc=l 

2230 GO TO 2000 

2240 LET tc=0: LET tm=tm+l; 

LET SC = SC + 10 : PRINT AT 19- 
tm,31 ; INK 2;"L";AT 13+tm,0 
IF tm=5 THEN GO TO 6 

400 

2250 GO TO 2000 

5999 REM ROUTINE DI CATTURA 

6000 PRINT AT a,b; OVER 1; INK 6 
; "D" 

6010 LET Li = li-1 : IF li = 0 THEN 
GO TO 8000 
6020 LET tc=l 

6030 FOR x=l TO 15: BEEP .006,x: 
NEXT x 

6040 LET a = l8 : LET b=l : PRINT 
AT si,8; INK 2 ;"B" 

6050 FOR x=l TO 15: NEXT x: 

PRINT AT a,b; INK 0;"A" 
6060 FOR x=l TO 10: NEXT x 
6070 GO TO 2000 

6100 PRINT AT a,b; OVER 1; INK 6 
; "D" 

6110 LET li = li-1 : IF li = 0 THEN 
GO TO 8000 

6120 IF tc=1 THEN LET tc=0 
6130 FOR x=l TO 15: BEEP .006,x: 
NEXT x 

6140 LET a = l8 : LET b=l : PRINT 
AT s2,13 ; INK 2 ;"B" 


6150 FOR x=l TO 15: NEXT x: 

PRINT AT a,b; INK 0;"A" 
6160 FOR x=l TO 10: NEXT x 
6170 GO TO 2000 

6200 PRINT AT a,b; OVER 1; INK 6 
; "D" 

6210 LET li = li-1 : IF li = 0 THEN 
GO TO 8000 

6220 IF tc=1 THEN LET tc=0 
6230 FOR x=1 TO 15: BEEP .006,x: 
NEXT x 

6240 LET a = l8 : LET b=l: PRINT 
AT s3,18; INK 2;"B" 

6250 FOR x=1 TO 15: NEXT x: 

PRINT AT a,b; INK 0;"A" 

62 60 FOR x = 1 TO 10: NEXT x 
6270 GO TO 2000 

6300 PRINT AT a,b; OVER 1; INK 6 
; "D" 

6310 LET li = li-1 : IF li = 0 THEN 
GO TO 8000 

6320 IF tc=l THEN LET tc=0 
6330 FOR x=1 TO 15: BEEP .006,x: 
NEXT x 

6340 LET a = l8 : LET b=l: PRINT 
AT s4,23 ; INK 2;"B" 

6350 FOR x=l TO 15: NEXT x: 

PRINT AT a,b; INK 0;"A" 
6360 FOR x=l TO 10: NEXT x 
6370 GO TO 2000 

6399 REM TRASFERIMENTO TESORO 

6400 LET tm=0: LET tc=0 
6420 FOR x=l8 TO 14 STEP -1: 

PRINT AT x,0 ; INK 2;"L"; 

AT x,31 ;" ": BEEP .009,x: 
NEXT X 

6430 GO TO 2000 

7999 REM TAVOLA PUNTEGGIO 

8000 FOR x=l TO 5: NEXT x 

8001 FOR x=l TO 15: BEEP .006,x: 

NEXT x 
8010 CLS 

8020 PRINT AT 10,0;"AVETE TOTALI 
ZZATO - ";sc;" PUNTI,"'"ED 
AVETE GIOCATO ";FN n();" SE 
CONDÌ""UN'ALTRA PARTITA 
? (S/N)" 

8025 FOR x=-l2 TO 40 STEP 6: 

BEEP .08,x: NEXT x 
8030 INPUT i$ 

8040 IF i$="s" OR i$="S" THEN 
GO TO 1050 
8060 CLS 

80*70 FOR x=40 TO -40 STEP -5: 

BEEP .06, X : NEXT X 
8080 STOP 

8999 REM ISTRUZIONI 

9000 CLS 
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9010 PRINT AT 0,8 ;"B TARANTOLE 
B" 

9020 PRINT IL VOSTRO COMPITO 

E' QUELLO DI TRASFERIRE I 
BAULI, CONTENENTI FANTAST 
ICI TESORI, DALL' ALTRA PA 
RTE DELLA CANTINA, EVITAND 
0 TUTTAVIA LE PERICOLOS 
ISSIME TARANTOLE. ESSE 
TESSONO UNA TELA ALLO SCO 
PO DI CATTURARVI PIU' FACI 
LMENTE. MUOVETEVI DUNQ 

UE CON ATTENZIONE, ANCHE 
PERCHE' IL VOSTRO SPOSTAM 
ENTO E' IN PARTE IMPREVE 


DIBILE !!" 

9030 PRINT USATE I TASTI < 

5> E <8> PER MUOVERVI 

A SINISTRA E A DESTRA. 

IL 

TRASFERIMENTO DEL BAULE E' 
COMPLETAMENTE AUTOMATICO 

II 

9040 PRINT AT 21,1; INVERSE 1;" 

PREMI UN TASTO PER INIZIAR 
E " 

9100 PAUSE 50 

9120 LET 1$ = INKEY$: IF 1$ = "" 

THEN GO TO 9120 
9130 RETURN 



Ecco un divertente gioco del Bowling per 
uno, due o tre giocatori. 

La palla si muove velocemente da un lato 
all'altro della pista, e premendo un tasto do¬ 
vrete cercare di farla partire quando è al 
centro: solo in tal modo riuscirete ad abbat¬ 
tere tutti i 10 birilli, un colpo che in gergo si 
chiama STRIKE. 

Per chi non conoscesse le regole del Bowling, 
le riassumiamo in breve. Ogni giocatore ha a 
disposizione 10 turni di gioco, durante i quali 
effettua uno o due tiri. Il punteggio ottenuto 
è uguale al numero di birilli abbattuti, ma 
esistono anche dei "punti premio": se con la 


prima palla si ottiene uno STRIKE, non si ef¬ 
fettua il secondo tiro, ma si aggiungono ai 10 
punti già totalizzati quelli dei due tiri seguen¬ 
ti. Se invece col primo tiro si abbatte solo una 
parte dei birilli, si lancia la seconda palla; se 
con essa si ottiene uno SPARE (cioè si abbat¬ 
tono i birilli rimanenti) si aggiungono ai 10 
punti totalizzati nel turno quelli del tiro suc¬ 
cessivo. Chi dovesse effettuare uno SPARE o 
uno STRIKE al decimo e ultimo turno avrà la- 
possibilità di lanciare rispettivamente una o 
due palle supplementari. Sul tabellone, una 
"X" contrassegna gli STRIKE e una "/" gli 
SPARE seguito. 


10 L(1 ) =1193:L(2)=1273:L(3)=1353 
:C$(1)="{HOME}{ 11 GIU'} 

{ 8 DES}" 

11 C$ (2)=C$(1)+"{ 13 DES}":C$(3) 
=C$(2)+"{ 13 DES}":C$=C$(1) 

12 BO=53280:SC=53281:CO=54272:SC 
(1)=13:SC(2)=15:SC(3)=7:BO(l) 
= 13 :BO(2)=15 

15 BO(3)=7 

17 FORT=COTOCO+24:POKET,0 :NEXT:P 
OKECO+24,15 :POKECO+5,17 :POKEC 
0+6,241 :POKECO,30 

18 POKECO+1,10 

110 POKEBO,0:POKESC,0:PRINT" 
{CLR}[<1>]"C$"{ 4 SU} 


{ 4 DES}{RVS} B O W L I N G 

11 


112 

113 

115 

118 

120 

121 

122 


PRINT"{ 8 GIU'}{ 8 DES}{CYN} 
QUANTI GIOCATORI (1-3)?" 
GETA$:A=VAL(A$):IFA<10RA>3TH 
EN113 

X$="I NOMI":IFA=lTHENX$="IL 
NOME" 


POKEBO,8 :POKESC,8 :PRINT" 
{CLR}{ 3 GIU'}{ 5 DES}{BLK}I 
NTRODURRE "X$":{ 5 GIU'}" 
FORX=lTOA 

PRINT"{GIU'}{ 5 DES}GIOCATOR 


E"X; 

INPUTA$(X) 
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123 A$(X)=LEFT$(A$ (X),6):NEXT:PO 
KESC,SC(1):POKEBO,BO(1) 

128 PRINT"{CLR}{GIU'}{ 8 DES} 

{BLU}{RVS} 123456789 
10{ 2 SPAZI}{OFF}{RED} ":PR 
INT"{ 9 DES}"; 

129 FORX=1TO10:PRINT"{RVS}1{OFF} 
2";:NEXT:PRINT"{RVS}3{OFF}" 

132 PRINTTAB(8)"{BLU} { 21 D}":P 
RINTTAB(9)"{GIU' } { 21 dT" 

133 ON-(A=1)G0T0138 

134 PRINTTAB(8)" {GIU'}{ 21 D} 

":ON-( A= 2 )GOTO138 

136 PRINTTAB(8)" {GIU'}{ 21 D} 

Il 

138 PRINTLEFTS(C$,12)" ”A$(1)":" 

146 TFA>lTHENPRINTTAB(14)"{SU}"A 
$(2)" : " 

150 IFA>2THENPRINTTAB(27)"{SU}"A 
$ ( 3 ) " : " 

154 PRINTLEFTS(C$,12)"{ 2 GIU'} 
{BLU} { 38 F}" 

156 PRINT"{ 9 GIU'} { 38 E}" 

160 FORQ=lTOlO 

166 FORZ9 = 1TOA: POKESC,SC(Z9) :POK 
EBO,BO(Z9) 

167 FORX=1TO10:READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

169 J=0:G=0 

170 GOSUB430:GOSUB550:P=L(Z9):GO 
SUB1000:L(Z9)=P 

172 GOSUB1200 

174 ON-(L(Z9)/2=INT(L(Z9)/2))GOT 
0169 

175 IF(PEEK(L(Z9)-1)=47ANDQ=10)= 
0THEN195 

178 PRINTLEFTS(CS,12)"{ 7 GIU'} 
{DES}{RED}"A$(Z9)", ANCORA U 
N TIRO!{BLU}" 

180 FORX=1T05000:NEXT 

182 PRINTLEFTS(C$,12)"{ 7 GIU'} 

{ 24 SPAZI}" 

184 FORX=ITO10 :READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

190 J= 0 :GOSUB4 30 :GOSUB5 50 :T(Z9) = 
T(Z9)+J:PRINTCS(Z9);T(Z9) 

192 K=J + 4 8 : IFJ+PF.EK (L(Z9) -1) - 224 
=10THENK=47 

193 IFK=58THENK=152 

194 POKEL(Z9) ,K:POKEL(Z9)+CO , 9 : G 
0T0225 

195 U = 0:IF(PEEK(L(Z9)- 2)=152ANDQ 
=10)=0THEN225 

198 PRINTLEFTS(C$,12)"{ 7 GIU'} 
{DES}{RED}"A$(Z9)"» ANCORA D 
UE TIRI !{BLU}" 


202 FORX=lTO3000:NEXT 

203 PRINTLEFTS(CS,12)"{ 7 GIU'} 

{ 24 SPAZI}" 

206 L(Z9)=L(Z9) — 1 

207 FORX=1TO10:READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

209 J=0:GOSUB430:GOSUB550:T(Z9)= 
T(Z9)+J 

210 K=J + 176:IFK=186THENK=152 :T ( Z 
9)=T(Z9)-J*(U=0) 

211 PRINTCS(Z9);T(Z9):POKEL(Z9), 
K:POKEL(Z9)+CO,4 :L(Z9)=L(Z9) 
+1 

213 IFPEEK(L(Z9)- 1)=152THENFORX= 
1TO10:READV:POKEV,81 :POKEV+C 
0,6:NEXT:RESTORE 

214 U=U+1:ONUGOTO209,225 
225 NEXTZ9:NEXTQ 

230 G0T0882 
430 N=1827:1=40 

440 POKEN,32:N=N+I:IFN<16240RN>1 
868THENI=-I 

460 POKEN+CO,0:POKEN,81:GETA$:ON 
-(A$="")GOT0440:RETURN 
550 N=N+1:GETA$ 

554 IFPEEK (N) 081THEN595 
558 Q2=N:GOSUB610 

560 POKECO+4,17 :POKEN-1,32:POKEN 
+CO,0 :POKEN,81 :POKECO+4,16 
562 FORW=ITO3 

566 IFPEEK(N-39*W)=81THENQ2=N-39 
*W:GOSUB610 

569 IFPEEK(N+41*W)=81THENQ2=N+41 
*W:GOSUB610 
572 NEXT 

595 POKECO+4,17 :H = H+1:POKEN-1,32 
:POKEN+CO,0 :POKEN,81:POKECO+ 
4,16 

597 IFH=36THEN612 
600 GOTO550 

610 J=J+l:POKECO+4,33:POKEQ2,32: 
FORT=ITO50 :NEXT:POKECO+4,32: 
RETURN 

612 H=0:POKEN,32:POKEN-1,32:RETU 
RN 

882 PRINTCS;"{ 3 GIU'}{RVS}{BLK} 
PUNTEGGI FINALI{GIU'}{BLU}" 

883 PRINT"{ 9 DES}"A$(1);T(1):IF 
A>1THENPRINT"{GIU'}{ 9 DES} 
"A$(2);T(2) 

884 IFA=3THENPRINT"{GIU'} 

{ 9 DES}";AS(3);T(3) 

887 PRINT"{RED}{GIU'}{ 8 DES}ANC 
ORA (S/N)?" 

894 GETAS:IFA$=""THEN894 

895 IFA$="S"THENRUN 

896 SYS2048 
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1000 G=J : IFP/20INT (P/2) THENG=G+ 
176 

1002 IFG=186THENG=152 
1004 IFP/2=INT(P/2)THENG=G+48 
1006 IFG+PEEK(P-l)-224=10THENG=4 
7 

1012 POKEP,G:POKEP+CO,9:IFG=152T 
HENP=P+1:G=0 
1100 P=P+1:RETURN 
1200 : 

1201 T(Z9)=T(Z9)+J 
1205 T(Z9)=T(Z9)-J*(PEEK(L(Z9)- 2 
) =47) 

1210 T(Z9)=T(Z9)-10*(PEEK(L(Z9)- 
3)= 4 7ANDPEEK(L(Z9)- 2)=152) 


1220 IFL(Z9)=12720RL(Z9)=13520RL 
(Z9)=1432THEN1290 

1225 T(Z9)=T(Z9)-J*(PEEK(L(Z9)- 4 
)=152) 

1227 T(Z9)=T(Z9)- J*(PEEK{L(Z9)-3 
)=152) 

1228 T(Z9)=T(Z9)-J*(PEEK(L(Z9)- 5 
)=152ANDPEEK(L(Z9)-3)=152) 

1230 T(Z9)=T(Z9)-J*(PEEK(L(Z9)- 6 
)=152ANDPEEK(L(Z9)-4)=152AN 
DPEEK(L(Z9)- 2)=152) 

1290 PRINTC?(Z9);T(Z9) 

1300 RETURN 

2200 DATA1661,1700,1739,1741,177 
8,1780,1819,1821,1860,1901 


- C64 

Lancio! 


LANCIO! è un gioco in cui dovete cercare di 
portare a terra sano e salvo un paracudista. 
Ci sono tre basi di atterraggio, contrassegna¬ 
te da 2X, 5X e I0X, e ognuna di esse è più 
piccola e quindi più difficile da centrare della 
precedente. Prima di ogni lancio avete 15 se¬ 
condi per scegliere, tramite il joystick, la 
base-obiettivo (altrimenti il computer decide 
per voi). Dopo ciò, l'aereo sorvola le basi e 
voi dovete sganciare il paracadutista al mo¬ 
mento giusto, tenendo conto del vento che 
talvolta è molto forte; il paracadute si apre 


10 T7=54272:GOSUB20000:NE=2:PRIN 
T"{CLR}":GOTO601Ò0 
12 A(1)=1194:A(2)=1205:A(3)=1214 

14 SC=0:BO=100:BA= 3 :WA=7:W=8:EX= 
0 

16 PRINT"{RED}{HOME} PUNTI: 

{ 3 SPAZI}"; 

20 GOSUB5000:POKET7 + 4,65 :POKET7 + 
11,65:POKET7+18,65 

21 PRINT"{HOME}";TAB(19) 

{ 3 SPAZI}{ 3 SIN}";A$ 

30 A= 0 


automaticamente, e potete usare il joystick 
per influenzare la traiettoria. L'atterraggio è 
valido solo se avviene sulla base prescelta, e 
frutta un punteggio dato da un "bonus" 
moltiplicato per il numero della base. Il ‘ ‘bo¬ 
nus" vale lazialmente 100 punti a aumenta 
di 50 ogni due atterraggi portati a buon fine. 
Avete a disposizione tre paracadutisti, e rag¬ 
giungendo i 5000 punti potete vincerne un 
quarto. 

Ecco le versioni del programma per il VIC 20 
senza espansioni di memoria e per il 64. 

100 PRINT"{HOME}{GIU'}";TAB(A);" 
[<4>] {OFF} {RVS}[< * >} 

{ 2 SIN}{GIU'}{OFF} {RVS} 

[< 2 I->] {BLU}" :A=A+1 


105 IFA>=38THENPRINT"{HOME} 

{giu'}";tab(A) ;" {giu’Hsin} 
{ 3 SPAZI}":A= 0 

110 GOSUBlOOO : IFFROOTHENFORI = 1T 
03 0 :NEXT: GOTO100 
112 IFA> 380RA<1THEN100 
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120 PRINT"{HOME}{giu 1 }";TAB(A) 
{SIN}{GIU*}{ 2 SPAZI}" 

200 B=1144+A:T=INT(RND(TI)*8+1) : 
T=T+1:POKET7 + 4,64 :POKET7 + 11, 

64 :POKET7 + 18,64 
210 CH=46:C=0 
212 C=C+1 

220 POKEB,CH:POKEB, 32 :B=B+40 
230 POKEB+T7, 4 :POKEB,CH:IFC<TTHE 
NFORY=ITO80 :NEXT:G0T0212 
300 CH=65 

305 POKEB+T7,4 :POKEB,CH 
310 GOSUB1000:C=C+1 
320 IFC>=WTHENIFR=4THENPOKEB,32 : 
B=B-1:POKEB+T7,4 :POKEB,CH:C = 

0 

330 IFC>=WTHENIFR=8THENPOKEB,32 : 
B=B+1:POKEB+T7,4 :POKEB,CH:C = 

0 

340 D=D+1 

350 IFD>=WATHENPOKEB,32 :B=B+40 
355 IFD>=WATHEND = 0: IFPEEK (B) 032 
THEN3000 

360 POKEB+T7,4 :POKEB,CH 
370 WI=WI+1 

390 IFWI>=SANDDI=-1THENPOKEB,32 : 

B=B+DI:POKEB+T7,4 :WI = 0 
395 IFWI> = SANDDI = 1THENPOKEB,32 :B 
= B+DI:POKEB+T7,4 :WI = 0 

400 IFPEEK (B) 0 32ANDPEEK (B) OCHT 
HEN3000 
410 POKEB,CH 
500 GOTO300 
1000 R=PEEK(56321) 

1010 FR=RANDl6 

1020 R=15-(RAND15) : RETURN 

3000 POKEB+T7,4 

3010 IFP=lTHENIFB=183lORB=18320R 
B=18330RB=1834THENPOKEB,CH: 
GOTO4000 

3020 IFP=2THENIFB=18420RB=18430R 
B=18 4 4 THENPOKEB,CH:GOT04 0 50 

3030 IFP=3THENIFB=18540RB=18550R 
B=18560RB=18570RB=1858THENP 
OKEB,CH:GOTO4100 
3040 POKEB,170:GOT012000 
4000 PRINT"{HOME}{ 8 GIU'}"TAB(1 
3)"5 X";BO;"=";5*BO 
4010 VA=5*BO:GOTOIOOOO 
4050 PRINT"{HOME}{ 8 GIU'}"TAB(1 
1)"10 X";BO;;10*BO 
4060 VA=10*BO:GOTOIOOOO 
4100 PRINT"{HOME}{ 8 GIU'}"TAB(1 
3)"2 X";BO;"=";2*BO 
4110 VA=2*BO:GOTOIOOOO 
5000 PRINT"{HOME}{ 19 GIU'}" 
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5020 PRINT"{ 6 SPAZI}{BLK}[<L>] 
{YEL}[< 4 I>]{BLK}[<J>] 

{ 5 SPAZI}{BLK}[<L>]{YEL} 

[< 3 I>]{BLK}[<J>] 

{ 7 SPAZI}[<L>]{YEL} 

[< 5 I>]{BLK}[<J>]{BLU}" 

5030 PRINT" {RVS}{RED} 

{ 7 SPAZI}5X{ 8 SPAZI}10X 
{ 10 SPAZI}2X{ 6 SPAZI} 
{OFF}{BLU}"; 

5040 FORI = 1944TO2023:POKEI+T7,6 : 
POKEI,160 :NEXT 

5041 IFBA<=0THEN60000 

5042 PRINT"{HOME}";TAB(19);" 

{ 14 SPAZI}" 

5043 IFBA>lTHENPRINT"{HOME}";TAB 
(28) ; : FORI = 1TOBA-1:PRINT" 

{GRN}A{BLU}";:NEXT:PRINT 
5045 SS=INT(RND(TI)*3+1):DI=INT( 
RND(TI)*2+1):IFDI=2THENDI=- 
1 

5048 IFSS = 1THENS = 5 :SD = 15 

5049 IFSS=2THENS=10:SD=10 

5050 IFSS = 3THENS = 15 : SD = 5 

5052 D$="DESTRA":IFDI=-1THEND$=" 
SINISTRA" 

5053 IFNJ>=NETHENBO=BO+50:PRINT" 

{HOME}{ 8 GIU'}"TAB(12)"BON 
US : {RED}"BO"{BLU}PUNTI" 

5054 IFNJ>=NETHENIFWA>4THENWA=WA 
-1 

5055 IFNJ>=NETHENNJ=0:IFWC18THEN 
W=W+1 

5056 PRINT"{HOME}{ 16 GIU'}"TAB( 
11)"VENTO:"SD"A "D$:GOSUB50 
000 

5057 FÒRK=lT01000:NEXT:PRINT" 

{HOME}{ 3 GIU'}{ 38 SPAZI} 

II 

5060 FORI=1104T01904STEP40:POKEI 
,96 :POKEI+ 39,96:NEXT 
5070 RETURN 
10000 JM=JM+1:NJ=NJ+1 
10100 FORP=1TOVA/10 :SC=SC+10:PRI 
NT"{HOME}{RED} PUNTI:";SC: 
NEXT 

10110 FORID=lTO3000:NEXT:IFEX=0A 
NDSC> = 50 00THENBA=BA+1:EX = 1 

10120 PRINT"{HOME}{ 8 GIU'} 

{ 38 SPAZI}":GOTO20 
12000 PRINT"{HOME}{ 8 GIU'}"TAB( 
13)"NIENTE BONUS!":BA=BA-1 

12010 FORID=1TO30OO:NEXT 





12120 POKEB,32 :PRINT"{HOME} 

{ 8 GIU'}{ 38 SPAZI}": GOTO 
20 

20000 FORK=0TO24 :READX:POKET7+K, 
X:NEXT 

20010 DATA9,2,0,3,0,0,240,12,2,0 
,4,0,0,192,16,2,0,6,0,0,64 
,0,30,243,31 
20020 RETURN 
50000 : 

50010 PRINT"{HOME}{ 9 DES } 

{ 4 GIU'}{RED}5X 
{ 8 SPAZI} 10X{ 7 SPAZI}2X 
{BLU}":P=1:Z=P 

50020 TI$="000000" 

50025 POKEA(P),PEEK(A(P))+128AND 
255:PRINT 

50027 TM=15-VAL(TI$) 

50029 PRINT"{HOME}"TAB(37);" 

{ 2 SPAZI}{ 3 SIN}";TM:IFT 
M=0THENP=INT(RND(TI)*3+1): 
GOTO50100 

50030 GOSUB1000:IFR=40RR=8THENX= 
PEEK(A(P)):IFX>129THENPOKE 
A ( P) ,X+128AND255 

50035 IFFR=0THEN50100 

50040 GOSUB10 00:IFR=4THENP=P-1:1 

FP<1THENP= 3 

50045 IFR=8THENP=P+1:IFP>3THENP= 
1 


50050 FORID=lTO100:NEXT:GOTO5002 
5 

50100 A$="2X":IFP=1THENA$="5X" 
50110 IFP=2THENA$="10X" 

50120 PRINT"{HOME}{ 9 DES} 

{ 12 GIU'}{GRN} DEVI ATTER 
RARE SU {RED}"A$"{BLU}" 
50140 FORID=lTO3000:NEXT:PRINT" 

{HOME}"TAB(37)"{ 2 SPAZI} 

11 

50150 PRINT"{HOME}":FORID=lTOl8: 

PRINT"{ 34 SPAZI}":NEXT:RE 
TURN 

'60000 PRINT"{HOME}{ 9 GIU’}"TAB( 
14)"{BLK}{RVS} FINE GIOCO 
":IFSC>HITHENHI=SC 
60010 GOSUB1000 : IFFRO0THEN60010 

60100 POKE532 80,6 :POKE53281,6 :PR 
INT"{CLR}{ 4 GIU’}{YEL} 

{RVS}"TAB(12)" LANCIO 

t » 

• 

60120 PRINTTAB(12)"{ 6 GIU’} 
{BLK}USA IL JOYSTICK" 

60140 PRINTTAB(14)"{ 6 GIU'} 

[<3>]RECORD: {RVS}{WHT}"MI 
D$(STR$(HI) ,2) 

60150 FORID=lTO3000:NEXT 

60160 GOSUB1000:IFFRO0THEN60160 

60170 POKE53281,1:PRINT"{CLR}":G 
OT012 


- Bowling 



Ecco un divertente gioco del Bowling per 
uno, due o tre giocatori. 

La palla si muove velocemente da un lato 
all'altro della pista, e premendo un tasto do¬ 
vrete cercare di farla partire quando è al 
centro: solo in tal modo riuscirete ad abbat¬ 
tere tutti i 10 birilli, un colpo che in gergo si 
chiama STRIKE. 

Per chi non conoscesse le regole del Bowling, 
le riassumiamo in breve. Ogni giocatore ha a 
disposizione 10 turni di gioco, durante i quali 


effettua uno o due tiri. Il punteggio ottenuto 
è uguale al numero di birilli abbattuti, ma 
esistono anche dei “punti premio": se con la 

prima palla si ottiene uno STRIKE, non si ef¬ 
fettua il secondo tiro, ma si aggiungono ai IO 
punti già totalizzati quelli dei due tiri seguen¬ 
ti. Se invece col primo tiro si abbatte solo una 
parte dei birilli, si lancia la seconda palla ; se 
con essa si ottiene uno SPARE (cioè si abbat¬ 
tono i birilli rimanenti) si aggiungono ai IO 
j punti totalizzati nel turno quelli del tiro suc- 
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cess ivo. Chi dovesse effettuare uno SPARE o 
uno STRIKE al decimo e ultimo turno avrà la- 
possibihtà di lanciare rispettivamente una o 

10 POKE36878,15:L(1)=7747:L(2)= 7 
791 :L(3)=7835:C$(1)="{HOME} 

{ 10 GIU'}{ 6 DES}" 

11 C$(2)=C$(l)+"{ 11 DES} " :C$(3) 
=C$(1)+"{GIU'}":C$=C$(1) 

12 SC=36879:CO=30720:Vl=36876:SC 
(1)=152:SC(2)=237:SC(3)=126 

20 POKESC,8 

110 PRINT"{CLR}{CYN}"C$"{ 3 SU} 
{DESHRVS} BOWLING " 

112 PRINT"{PUR}{ 6 GIU'}QUANTI G 
IOCATORI (1-3)" 

113 GETAS:A=VAL(A$) : IFA<lORA>3TH 
ENI 13 

115 POKESC,25:XS="I NOMI":IFA=lT 
HENXS = "IL NOME" 

118 PRINT"{CLR}{ 3 GIU'}{GRN}IMP 
OSTA "X$":{ 2 GIU'}" 

120 FORX=1TOA 

121 PRINT"{GIU'}GIOCATORE"X; 

122 INPUTAS(X) 

123 A$ (X) =LEFT$ (A? (X) , 5) :NEXT 
128 PRINT"{CLR}{SU}{RVS}{DES} 

{BLU}1 23456789 10 
{OFF}{RED} :FORX=1TO10:PRI 
NT"{RVS}1{OFF}2"; :NEXT:PRINT 
"{RVS}3{OFF}"; 

132 PRINT"{BLU} { 21 D}{GIU'} 

{ 21 D}":ON-(A=1)GOTOl38 
134 PRINT” { 21 D}":ON-(A=2)GOTO 
138 

136 PRINT" { 21 D}" 

138 PRINTLEFTS(C$,11)+A$ (1)":" 
146 IFA>lTHENPRINTTAB(10)+"{DES} 
{SU}"+A$(2)":" 

150 IFA>2THENPRINTA$(3) 

154 PRINTLEFTS(C$,11)"{ 2 GIU’} 
{BLU}{ 21 F}{GIU 1 }{DES} 

{ 8 GIU'}{ 21 E}{ 2 SU}" 

160 FORQ=lTOl0 

166 FORZ9=lTOA:POKESC,SC(Z9) 

167 FORX=1TO10:READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

169 J=0:G=0 

170 GOSUB430 :GOSUB550 :P = L(Z9) :GO 
SUB1000:L(Z9)=P 

172 GOSUB1200 

174 ON-(L(Z9)/2=INT(L(Z9)/2))GOT 
0169 

175 IF(PEEK(L(Z9)-1)=47ANDQ=10)= 
0THEN195 

178 PRINTLEFTS(C$,11)+" 

{ 7 GIU'}"+A$(Z9)+", ANCORA" 


due palle supplementari. Sul tabellone, una 
"X" contrassegna gli STRIKE e una “/" gli 
SPARE seguito. 

179 PRINT"UN TIRO!" 

180 FORX=1T05000:NEXT 

182 PRINTLEFTS(C$,11)+" 

{ 7 GIU'}"+"{ 13 SPAZI}" 

183 PRINT"{ 13 SPAZI}" 

184 FORX=1TO10:READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

190 J=0:GOSUB430:GOSUB550:T(Z9)= 
T(Z9)+J:PRINTCS(Z 9) ;T(Z9) 

192 K=J+48:IFJ+PEEK(L(Z9)-1)-224 
=10THENK=47 

193 IFK=58THENK=152 

194 POKEL(Z9) ,K:POKEL(Z9)+CO,4 :G 
0T0225 

195 U=0:IF(PEEK(L(Z9)-2)=152ANDQ 
=10)=0THEN225 

198 PRINTLEFTS(C$,11)+" 

{ 7 GIU'}"+A$(Z9)+", ANCORA" 

199 PRINT"DUE TIRI !" 

202 FORX=1T03000 :NEXT 

203 PRINTLEFTS(C$,11)+" 

{ 7 GIU'}"+"{ 13 SPAZI}" 

205 PRINT"{ 13 SPAZI}" 

206 L(Z9)=L(Z9)-1 

207 FORX=lTO10:READV:POKEV,81 : PO 
KEV+CO,6 :NEXT:RESTORE 

209 J=0:GOSUB430 :GOSUB550:T(Z9) = 
T(Z9)+J:PRINTCS(Z9);T(Z9) 

210 K=J+176:IFK=186THENK=152 

211 POKEL(Z9) ,K:POKEL(Z9)+CO,4 :L 
(Z9)=L(Z9)+1 

213 IFPEEK(L(Z9)- 1)=152THENFORX= 
1TO10:READV:POKEV,81 :POKEV+C 
0,6:NEXT:RESTORE 

214 U=U+1:ONUGOTO209,225 
225 NEXTZ9:NEXTQ 

230 G0T0882 
430 N = 8123: 1 = 22 

440 POKEN,32:N=N+I:IFN<79880RN>8 
124THENI=-I 

460 POKEN+30720,0-(PEEK(SC)=10): 
POKEN,81:GETAS:ON-(A$="")GOT 
0440 : RETURN 
550 N=N+1:GETAS 
554 IFPEEK (N) 081THEN595 
558 Q2=N:GOSUB610 

560 POKEVl,150:POKEN-1,32 :POKEN+ 
CO,0-(PEEK(SC)=10):POKEN,81: 
POKEVl,0 
562 FORW=ITO3 

566 IFPEEK(N-21*W)=81THENQ2=N-21 
*W:GOSUB610 
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569 IFPEEK(N+23*W)=8lTHENQ2=N+23 
*W:GOSUB610 
572 NEXT 

595 H=H+1:POKEVl,150 :POKEN-1,32: 
POKEN+CO,0-(PEEK(SC)=10):POK 
EN,81:POKEVl,0 
597 IFH=18THEN612 
600 FORSS=lTO50:NEXT:GOTO550 
610 J=J+1:POKEVl,210 :POKEQ2, 32 :F 
ORK=ITO50 :NEXT:POKEVl,0 :FORK 
= ITO40 :NEXT:RETURN 
612 H=0:POKEN,32:POKEN-1,32:RETU 
RN 

882 PRINTC5"{SIN}{GIU'}{ 2 SIN} 

{ 2 GIU'}{PURjPUNTEGGI FINAL 
I{GIU’}{BLU}" 

883 PRINT"{ 5 DES}"A$(1);T(1):IF 
A>1THENPRINT"{DES}{GIU'} 

{ 4 DES } "A$ (2) ;T ( 2) 

884 IFA=3THENPRINT"{GIU'} 

{ 5 DES}";A$(3);T(3) 

887 PRINT"{GIU'}{ 3 DES}ANCORA ( 
S/N)?" 

894 GETA$:IFA$=""THEN894 

895 IFA$="S"THENRUN 

896 PRINT"{CLR}":POKE36879,27:EN 
D 

1000 G=J : IFP/20INT (P/2) THENG=G+ 
176 


1002 IFG=186THENG=152 
1004 IFP/2=INT(P/2)THENG=G+48 
1006 IFG+PEEK(P-l)-224=10THENG=4 
7 

1012 POKEP,G:POKEP+CO,4:IFG=152T 
HENP=P+1:G = 0 
1100 P=P+1: RETURN 
1200 : 

1201 T(Z9)=T(Z9)+J 
1205 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-2 
) =47) 

1210 T(Z9)=T(Z9)-10*(PEEK(L(Z9)- 
3)=4 7ANDPEEK(L(Z9)- 2)=152) 
1220 IFL{Z9)=77460RL(Z9)=7790ORL 
(Z9)=7834THEN1290 
1225 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-4 
)=152) 

1227 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-3 
)=152) 

1228 T(Z9)=T(Z9)-J*((PEEK(L(Z9)- 
5)=152ANDPEEK(L(Z9)-3)=152) 

) 

1230 T(Z9)=T(Z9)-J*(PEEK(L(Z9)- 6 
)=152ANDPEEK(L(Z9)-4)=152AN 
DPEEK(L(Z9)-2)=152) 

1290 PRINTC$(Z9);T(Z9) 

1300 RETURN 

2200 DATA8007,8028,8049,8051,807 
0,8072,8093,8095,8116,8139 


Lancio! 



LANCIO! è un gioco in cui dovete cercare di 
portare a terra sano e salvo un paracudista. 
Ci sono tre basi dì atterraggio, contrassegna¬ 
te da 2X, 5X e I 0X, e ognuna di esse è più 
piccola e quindi più diffìcile da centrare della 
precedente. Prima di ogni lancio avete 15 se¬ 
condi per scegliere, tramite il joystick, la 
base-obiettivo (altrimenti il computer decide 
per voi). Dopo ciò, l'aereo sorvola le basi e 
voi dovete sganciare il paracadutista al mo¬ 
mento giusto, tenendo conto del vento che 
talvolta è molto forte; il paracadute si apre 


automaticamente, e potete usare il joystick 
per influenzare la traiettoria. L'atterraggio è 
valido solo se avviene sulla base prescelta, e 
frutta un punteggio dato da un “bonus" 
moltiplicato per il numero della base. Il “bo¬ 
nus'' vale inzialmente 100 punti a aumenta 
di 50 ogni due atterraggi portati a buon fine. 
Avete a disposizione tre paracadutisti, e rag¬ 
giungendo i 5000 punti potete vincerne un 
quarto. 

Ecco le versioni del programma per il VIC 20 
senza espansioni di memoria e per il 64. 
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8 Pl=37151:P2=37152:P3=37154:T7= 
3 0 7 2 0 : NE = 2 

10 PRINT"{CLR}":GOT060100 
12 A(l)=7772:A(2)=7778:A(3)=7782 

14 SC=0:BO=100:BA=3:WA=7:W=8:EX= 
0 

16 PRINT"{HOME}PUNTI: 000 
{ 3 SPAZI}" 

20 GOSUB5000 

21 PRINT"{HOME}"TAB(14)" 

{ 3 SPAZI}} 3 SIN}"A$ 

30 A=0 

100 PRINT"{HOME}{GIU'}"TAB(A)" 
{OFF} {RVS}[<*>]{ 2 SIN} 
{GIU*}{OFF} {RVS}[< 2 I>}":A 

=A+1 

105 IFA>=20THENPRINT"{HOME} 

{GIU'}"TAB(A)" {GIU'}{SIN} 

{ 2 SPAZI}":A=0 

110 GOSUB1000 : IFRO128THENF0RI = l 
TO 5 0 :NEXT:GOTOl0 0 
112 IFA> 20ORA<1THEN100 

120 PRINT"{HOME}{GIU 1 }"TAB(A)" 
{SIN}{GIU'}{ 2 SPAZI}" 

200 B=7747+A:T = INT(RND(TI)*8 + 1) : 
T=T+1 

210 CH=46:C=0 
212 C=C+1 

220 POKEB,CH:POKEB,32 :B=B+22 

230 POKEB+T7,4 :POKEB,CH:IFC<TTHE 
NFORY=lTO80:NEXT:G0T0212 
300 CH=65 

305 POKEB+T7,4 :POKEB,CH 
310 GOSUB1000:C=C+1 
320 IFC>=WTHENIFR=4THENPOKEB,32 : 
B=B-1:POKEB+T7,4 :POKEB,CH:C= 
- 0 

330 IFC>=WTHENIFR=8THENPOKEB,32 : 
B=B+1:POKEB+T7,4 :POKEB,CH:C= 
0 

340 D=D+1 

350 IFD>=WATHENPOKEB,32:B=B+22 
355 IFD>=WATHEND = 0 : IFPEEK (B) 032 
THEN3000 

360 POKEB+T7,4 :POKEB,CH 
370 WI=WI+1 

390 IFWI>=SANDDI=-1THENPOKEB,32 : 

B=B+DI:POKEB+T7,4 :WI = 0 
395 IFWI>=SANDDI = lTHENPOKEB,32 :B 
=B+DI:POKEB+T7,4:WI=0 
400 IFPEEK (B) 032ANDPEEK (B) OCHT 
HEN3000 
410 POKEB,CH 

500 GOTO300 

1000 POKEP3,127 :X=NOTPEEK(PI)AND 
60-((PEEK(P2)AND128)=0):POK 


EP3,255 

1010 R=-((XAND4)=4)-2*((XAND8)=8 
)-4*((XAND16)=16)-8*((XANDl 
)=1)-128*((XAND32)=32) 

1020 RETURN 
3000 POKEB+T7,4 

3010 IFP=lTHENIFB=81240RB=8125TH 
ENPOKEB,CH: GOTO 4 000 
3020 IFP=2THENIFB=8130THENPOKEB, 
CH:GOTO4050 

3030 IFP=3THENIFB=81350RB=81360R 
B=8137THENPOKEB,CH:GOTO4100 

3040 POKEB,170:GOTOl2000 
4000 PRINT"{HOME}{ 8 GIU'} 

{ 5 DES}5 X"BO"="5*BO 
4010 VA=5*BO:GOTOlOOOO 
4050 PRINT"{HOME}{ 8 GIU'} 

{ 4 DES}10 X"BO"="10*BO 
4060 VA=10*BO:GOTOlOOOO 
4100 PRINT"{HOME}{ 8 GIU'} 

{ 5 DES}2 X"BO"="2*BO 
4110 VA=2*BO:GOTOlOOOO 

5000 PRINT"{HOME}{ 19 GIU'}" 

5020 PRINT"{ 3 SPAZI}{BLK}[<L>] 
{YEL}[< 2 I>]{BLK}[<J>] 

{ 2 SPAZI}{BLK}[<L>}{YEL} 
[<I>]{BLK}[<J>]{ 2 SPAZI} 

[<L>]{YEL}[< 3 I>]{BLK} 

[<J>]{BLU}" 

5030 PRINT"{RVS}{ 4 SPAZI}5X 

{ 3 SPAZI}10X{ 4 SPAZI}2X 
{ 4 SPAZI}{OFF}"; 

5040 F0RI = 8164T08185 :POKEI+T7,6 : 
POKEI,160:NEXT 

5041 IFBA<=CTHEN60000 

5042 PRINT"{HOME}"TAB(17)" 

{ 4 SPAZI}" 

5043 IFBA>1THENPRINT"{HOME}"TAB( 
18); : FORI = 1TOBA-1:PRINT"A"; 

:NEXT:PRINT 

5045 SS=INT(RND(TI)*3+1):DI=INT( 
RND(TI)*2+1):IFDI=2THENDI=- 
1 

5048 IFSS = 1THENS = 5 :SD = 15 

5049 IFSS=2THENS=10:SD=10 

5050 IFSS=3THENS=15:SD=5 

5052 D$="DESTRA":IFDI=-1THEND$=" 
SINISTRA" 

5053 IFNJ>=NETHENBO=BO+50:PRINT" 
{HOME}{ 7 GIU'}{DESjBONUS: 
{RED}"BO"{BLU}PUNTI" 

5054 IFNJ>=NETHENIFWA>4THENWA=WA 
-1 

5055 IFNJ>=NETHENNJ=0:IFW<18THEN 
W=W+1 
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5056 PRINT"{HOME}{ 2 GIU'} 

{ 22 SPAZI}{SU} VENTO:"SD”A 
"D$ :GOSUB50000 

5057 FORK=lTO1000:NEXT:PRINT" 
{HOME}{GIU'}{ 20 SPAZI}" 

5060 FORI=7724T08141STEP22:POKEI 
,96 :POKEI+ 21,96:NEXT 
5070 RETURN 
10000 JM=JM+1:NJ=NJ+1 
10100 FORP=1TOVA/10:PRINT"{HOME} 
{BLU}PUNTI :{RED}"SC:POKES3 
,0:SC=SC+10:NEXT:PRINT" 
{HOME}{BLU}PUNTI :{RED}"SC 
10110 FORID=lTO3000:NEXT:IFEX=0A 
NDSC>=5000THENBA=BA+1:EX=1 

10120 PRINT"{HOME}{ 8 GIU’} 

{ 21 SPAZI}":GOTO20 
12000 PRINT"{HOME}{ 8 GIU'} 

{ 4 DES}NIENTE BONUS !": BA= 
BA-1 

12010 FORID=lTO3000:NEXT 
12120 POKEB,32:PRINT"{HOME} 

{ 8 GIU'}{ 21 SPAZI}":GOTO 
20 

50000 : 

50010 PRINT"{HOME}{ 4 GIU'}{RED} 

{ 4 SPAZI}5X{ 3 SPAZI}10X 
{ 2 SPAZI}2X{BLU}":P=1:Z=P 

50020 TI$="000000" 

50025 POKEA(P),PEEK(A(P)J+128AND 
255 

50027 TM=15-VAL(TI$) 

50028 PRINT"{HOME}{ 12 GIU'}"TAB 
(10)"{ 2 SPAZI}{ 3 SIN}"TM 
:IFTM=0THENP=INT(RND(TI)*3 
+1):GOTO50100 

50030 GOSUB1000:IFR=40RR=8THENX= 
PEEK(A(P)):IFX>129THENPOKE 
A(P),X+128AND255 
50035 IFR>127THEN50100 
50040 GOSUB1000:IFR=4THENP = P-1:1 
FP<1THENP=3 

50045 IFR=8THENP=P+1:IFP>3THENP= 
1 

50050 FORID=lTO100:NEXT:GOTO5002 
5 

50100 A$="2X":IFP=1THENA$="5X" 
50110 IFP=2THENA$="10X" 

50120 PRINT"{GIU'}DEVI ATTERRARE 
SU "A$ 

50140 FORID=lTO3000:NEXT 

50150 PRINT"{HOME}":FORID=lTOl7: 

PRINT"{ 21 SPAZI}":NEXT:RE 
TURN 

60000 PRINT"{HOME}{ 7 GIU'} 

{ .6 DES}{RVS}FINE GIOCO": I 


FSOHITHENHI =SC 
60010 FORHD=lTO3000:NEXT 
60020 PRINT"{HOME}{ 7 GIU'} 

{ 6 DES}{ 9 SPAZI}" 

60100 POKE36879,18 8 f GOSUB50150 :P 
RINT"{HOME}{ 2 GIU'} 

{ 3 SPAZI}{RED}{RVS} LAN 
CIO! " 

60110 PRINT:PRINT:PRINT:PRINT 
60120 PRINT" {PUR}{ 2 SPAZI}USA 
IL JOYSTICK" 

60130 PRINT:PRINT:PRINT:PRINT 
60140 PRINT"{ 8 SPAZI}{GRN}RECOR 
D{RED}":PRINT 

60150 XX=LEN (STR$ (HI))/2: PRINTTA 
B(11-XX)HI 

60160 GOSUB1000:IFR=0THEN60160 
60170 PRINT"{HOME}":FORK=ITO17 :P 
RINT"{ 21 SPAZI}":NEXT:GOT 
012 


ERRATA CORRIGE 

Nel listato di “Fuga dal labirinto 
incantato", pubblicato sul n° I di Paper- 
Soft erano presenti alcune stranezze che ci 
premuriamo di correggeré subito. A cau¬ 
sa defla presenza di due variabili rappre¬ 
sentate dallo stesso carattere alfanumeri¬ 
co, il gioco finiva per funzionare senza pe¬ 
rò mai convalidare alcuna via di risoluzio¬ 
ne; per cui le quattro righe in cui bisogna 
effettuare le quattro semplicissime corre¬ 
zioni, vanno lette nel modo seguente: 

240 DIM N(21),S(21),E(21),OV(21) 

250 FOR A=l TO 21 :: READ N(A), 

S(A), E(A), OV(A) :: NEXT A 

260 1 = 0 :: FOR A=l TO 21 :: 1 = 1 + 

N(A) + S(A) + E(A) + OV(A):: NEXT A :: 

READ CC :: IF lOCC THEN PRINT “ 

ISTRUZIONI/DATA-": "ERRATE" :: 

STOP 

1620 IF VB$ = ’0' OR VBS = "OVEST" 
THEN X,R = OV(R)::GOSUB 750 
Vi assicuriamo che fatte queste semplici 
modifiche potrete finalmente correre ver¬ 
so la via d’uscita e per darvene prova vi 
forniamo la soluzione qui sotto: 
S-O-S-Q-N-N-E-S-S-E-E-N-E-E-S- 
Dl’ PIETRA 
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